diff options
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r-- | src/fortranscanner.l | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 84749c1..45e1686 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -686,9 +686,12 @@ private { // in a scope of their own, even if multiple // are group in one INTERFACE/END INTERFACE block. // - last_entry->endBodyLine = yyLineNr - 1; if (ifType == IF_ABSTRACT || ifType == IF_SPECIFIC) + { endScope(current_root); + last_entry->endBodyLine = yyLineNr - 1; + } + current_root->endBodyLine = yyLineNr - 1; if (!endScope(current_root)) yyterminate(); |