Commit 03f779ae authored by Dimitri van Heesch's avatar Dimitri van Heesch

Merge pull request #258 from albert-github/feature/bug_fortran_source_continuation

Fortran continuation character seen as begin of function call
parents b90e7da8 b2e9aa36
...@@ -990,9 +990,17 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -990,9 +990,17 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
yy_pop_state(); yy_pop_state();
} }
<Start>{ID}{BS}/"(" { // function call <Start>{ID}{BS}/"(" { // function call
g_insideBody=TRUE; if (g_isFixedForm && yy_my_start == 6)
generateLink(*g_code, yytext); {
g_insideBody=FALSE; // fixed form continuation line
YY_FTN_REJECT;
}
else
{
g_insideBody=TRUE;
generateLink(*g_code, yytext);
g_insideBody=FALSE;
}
} }
/*-------- comments ---------------------------------------------------*/ /*-------- comments ---------------------------------------------------*/
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment