Permalink
Browse files

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.
  • Loading branch information...
albert-github committed Dec 8, 2014
1 parent 540f0b6 commit b2e9aa362540cae4487e48598fb7e80b8651752f
Showing with 11 additions and 3 deletions.
  1. +11 −3 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 ---------------------------------------------------*/

0 comments on commit b2e9aa3

Please sign in to comment.