Fortran continuation character seen as begin of function call

In case in fixed format code a line like: " x ( " existed and the x was on position 6 the "x (" was seen as the start of a function call.
doxygen · Dec 8, 2014 · b2e9aa3 · b2e9aa3
1 parent 540f0b6
commit b2e9aa3
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/src/fortrancode.l b/src/fortrancode.l
@@ -991,9 +991,17 @@ PREFIX    (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
 	                                  yy_pop_state();
                                         }
 <Start>{ID}{BS}/"("                     { // function call
-					  g_insideBody=TRUE;
-                                          generateLink(*g_code, yytext);
-					  g_insideBody=FALSE;
+                                          if (g_isFixedForm && yy_my_start == 6)
+                                          {
+                                            // fixed form continuation line
+                                            YY_FTN_REJECT;
+                                          }
+                                          else
+                                          {
+					    g_insideBody=TRUE;
+                                            generateLink(*g_code, yytext);
+					    g_insideBody=FALSE;
+                                          }
                                         }
 
  /*-------- comments ---------------------------------------------------*/