summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDimitri van Heesch <dimitri@stack.nl>2015-04-05 13:13:13 (GMT)
committerDimitri van Heesch <dimitri@stack.nl>2015-04-05 13:13:13 (GMT)
commitadf51b6b92a3dd1931ff166d3ee84c952cedebf2 (patch)
treeadfe06d69d204eebdb0ef65083acd4fc56d81d6e
parentf17be0b372f6e3512986dbea51f94f4ebb13d413 (diff)
parent7d3a2abf0137c5257eeb0a8e0f76381b79f1e7bb (diff)
downloadDoxygen-adf51b6b92a3dd1931ff166d3ee84c952cedebf2.zip
Doxygen-adf51b6b92a3dd1931ff166d3ee84c952cedebf2.tar.gz
Doxygen-adf51b6b92a3dd1931ff166d3ee84c952cedebf2.tar.bz2
Merge pull request #315 from albert-github/feature/bug_interface
Crash in case of non generic interface in Fortran
-rw-r--r--src/fortranscanner.l2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 1cfa13d..094bfb1 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -485,7 +485,7 @@ SCOPENAME ({ID}{BS}"::"{BS})*
<InterfaceBody>^{BS}end{BS}interface({BS_}{ID})? {
// end scope only if GENERIC interface
- last_entry->parent()->endBodyLine = yyLineNr - 1;
+ if (ifType == IF_GENERIC)last_entry->parent()->endBodyLine = yyLineNr - 1;
if (ifType == IF_GENERIC && !endScope(current_root))
yyterminate();