Index: src/fortranscanner.l
===================================================================
--- src/fortranscanner.l	(revision 757)
+++ src/fortranscanner.l	(working copy)
@@ -755,6 +755,13 @@
                                           inputStringSemi =(const char*)(yytext+1);
                                           pushBuffer(inputStringSemi);
                                         }
+<*>";".*"\n"                            {
+					  if (YY_START == Variable) REJECT; // Just be on the safe side
+                                          if (YY_START == String) REJECT; // ";" ignored in strings
+                                          if (YY_START == StrIgnore) REJECT; // ";" ignored in regular comments
+                                          inputStringSemi =(const char*)(yytext+1);
+                                          pushBuffer(inputStringSemi);
+                                        }
 
 <Initialization,ArrayInitializer>"(/"   { initializer+=yytext;
                                            initializerArrayScope++;
