diff options
| author | albert-github <albert.tests@gmail.com> | 2015-01-01 12:27:30 (GMT) |
|---|---|---|
| committer | Dimitri van Heesch <dimitri@stack.nl> | 2015-01-02 09:45:19 (GMT) |
| commit | e7a6a682137a82dbdf847b1879f320ece4f3642f (patch) | |
| tree | ca30a92fea10d7fbbdf651aa3fc1539f5c1961f7 /src | |
| parent | 610bdb67c4db775debf26d85091383938d946f3d (diff) | |
| download | Doxygen-e7a6a682137a82dbdf847b1879f320ece4f3642f.zip Doxygen-e7a6a682137a82dbdf847b1879f320ece4f3642f.tar.gz Doxygen-e7a6a682137a82dbdf847b1879f320ece4f3642f.tar.bz2 | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fortranscanner.l | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index f628c26..1ffd987 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -988,6 +988,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_} { |