Permalink
Browse files

Fortran FUNCTION source code

In case of a Fortran FUNCTION there was a difference between the handling of the source code lines for functions with and without the RESULT clause. This has  been made uniform.
  • Loading branch information...
albert-github committed Jan 1, 2015
1 parent ed39dab commit 25a90990662449808c5ba58c243a7835d13ba750
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/fortranscanner.l
@@ -982,6 +982,8 @@ private {
result=result.stripWhiteSpace();
addSubprogram(result);
BEGIN(Subprog);
current->bodyLine = yyLineNr + lineCountPrepass + 1; // we have to be at the line after the definition and we have to take continuation lines into account.
current->startLine = yyLineNr;
}
<Start,ModuleBody,SubprogBody,InterfaceBody,ModuleBodyContains,SubprogBodyContains>^{BS}({PREFIX}{BS_})?{SUBPROG}{BS_} {

0 comments on commit 25a9099

Please sign in to comment.