Skip to content

Commit

Permalink
Fix FORTRAN code function scope test
Browse files Browse the repository at this point in the history
  • Loading branch information
hansec committed May 27, 2014
1 parent be0986e commit 2030240
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/fortrancode.l
Original file line number Diff line number Diff line change
Expand Up @@ -932,7 +932,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
endFontClass();
}
<Declaration>{ID} { // local var
if (g_currentMemberDef && !g_currentMemberDef->isFunction() && bracketCount==0)
if (g_currentMemberDef && g_currentMemberDef->isFunction() && bracketCount==0)
{
g_code->codify(yytext);
addLocalVar(yytext);
Expand Down

0 comments on commit 2030240

Please sign in to comment.