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,10 +990,18 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -990,10 +990,18 @@ 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
if (g_isFixedForm && yy_my_start == 6)
{
// fixed form continuation line
YY_FTN_REJECT;
}
else
{
g_insideBody=TRUE; g_insideBody=TRUE;
generateLink(*g_code, yytext); generateLink(*g_code, yytext);
g_insideBody=FALSE; g_insideBody=FALSE;
} }
}
/*-------- comments ---------------------------------------------------*/ /*-------- comments ---------------------------------------------------*/
<Start>\n?{BS}"!>"|"!<" { // start comment line or comment block <Start>\n?{BS}"!>"|"!<" { // start comment line or comment block
......
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