diff options
| author | Dimitri van Heesch <doxygen@gmail.com> | 2020-03-27 21:34:22 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-03-27 21:34:22 (GMT) |
| commit | 39bdf31966fccdb8ab0bffb929c6d0a9a5894cb1 (patch) | |
| tree | 741dcc0cf1627a7d228a71fdc0d9edbf8b3380c9 | |
| parent | 2dfbc6ae6d718cadae022aad0da310263e3d9d8d (diff) | |
| parent | f4a10139c6652a122912754ccc0b453e703c92bf (diff) | |
| download | Doxygen-39bdf31966fccdb8ab0bffb929c6d0a9a5894cb1.zip Doxygen-39bdf31966fccdb8ab0bffb929c6d0a9a5894cb1.tar.gz Doxygen-39bdf31966fccdb8ab0bffb929c6d0a9a5894cb1.tar.bz2 | |
Merge pull request #7669 from albert-github/feature/bug_ftn_fixed
Incorrect determination of fixed form Fortran
| -rw-r--r-- | src/fortranscanner.l | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index df4941d..852c4d9 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -1496,7 +1496,6 @@ void truncatePrepass(yyscan_t yyscanner,int index) } // simplified way to know if this is fixed form -// duplicate in fortrancode.l bool recognizeFixedForm(const char* contents, FortranFormat format) { int column=0; @@ -1532,7 +1531,7 @@ bool recognizeFixedForm(const char* contents, FortranFormat format) break; default: if (skipLine) break; - if (column==7) return TRUE; + if (column>=7) return TRUE; return FALSE; } } |