From 6f7264f4a16f5b1240291c6d33a0e4cc98ba30e4 Mon Sep 17 00:00:00 2001
From: albert-github <albert.tests@gmail.com>
Date: Sat, 18 Nov 2017 18:41:27 +0100
Subject: [PATCH] Code color of , (comma) together with only in use statement

The comma was colored as part of the word only (keywordtype), this should not be the case.
---
 src/fortrancode.l | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/fortrancode.l b/src/fortrancode.l
index 1f227006f0c..141e7623cf1 100644
--- a/src/fortrancode.l
+++ b/src/fortrancode.l
@@ -774,6 +774,13 @@ PREFIX    (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
                                           yy_push_state(YY_START);
 					  BEGIN(Use);     
                                         }
+<Use>"ONLY"                             { // TODO: rename
+                                          startFontClass("keywordtype");
+                                          codifyLines(yytext);
+                                          endFontClass();
+                                          yy_push_state(YY_START);
+                                          BEGIN(UseOnly);
+                                        }
 <Use>{ID}                               {
                                           QCString tmp = yytext;
                                           tmp = tmp.lower();
@@ -790,14 +797,7 @@ PREFIX    (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
                                           useMembers->append(tmp, useEntry);
 					  addUse(tmp);
                                         }           
-<Use>,{BS}"ONLY"                        { // TODO: rename
-  					  startFontClass("keywordtype"); 
- 					  codifyLines(yytext);
-					  endFontClass();
-                                          yy_push_state(YY_START);
-					  BEGIN(UseOnly);     
-                                        }           
-<UseOnly,Import>{BS},{BS}               { codifyLines(yytext); }
+<Use,UseOnly,Import>{BS},{BS}           { codifyLines(yytext); }
 <UseOnly,Import>{BS}&{BS}"\n"           { codifyLines(yytext);
                                           g_contLineNr++;
                                           YY_FTN_RESET}