diff options
| author | Dimitri van Heesch <dimitri@stack.nl> | 2015-04-05 13:13:13 (GMT) |
|---|---|---|
| committer | Dimitri van Heesch <dimitri@stack.nl> | 2015-04-05 13:13:13 (GMT) |
| commit | adf51b6b92a3dd1931ff166d3ee84c952cedebf2 (patch) | |
| tree | adfe06d69d204eebdb0ef65083acd4fc56d81d6e | |
| parent | f17be0b372f6e3512986dbea51f94f4ebb13d413 (diff) | |
| parent | 7d3a2abf0137c5257eeb0a8e0f76381b79f1e7bb (diff) | |
| download | Doxygen-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.l | 2 |
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(); |