diff options
| author | albert-github <albert.tests@gmail.com> | 2014-04-21 18:04:00 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2014-04-21 18:04:00 (GMT) |
| commit | f083109de116ee2c6e2a31a15ebc17d2dff008e0 (patch) | |
| tree | 18324cb2550b9dc27e4777d5e51d1089b9cd0e73 /src | |
| parent | cf591d2e4cd80664121cba7e69cf4a11996486cb (diff) | |
| download | Doxygen-f083109de116ee2c6e2a31a15ebc17d2dff008e0.zip Doxygen-f083109de116ee2c6e2a31a15ebc17d2dff008e0.tar.gz Doxygen-f083109de116ee2c6e2a31a15ebc17d2dff008e0.tar.bz2 | |
Bug 623299 - Fortran: quotation after define causes error
For the determination whether the file is free or fixed formatted code just see lines starting with # as comment lines
Diffstat (limited to 'src')
| -rw-r--r-- | src/fortrancode.l | 3 | ||||
| -rw-r--r-- | src/fortranscanner.l | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index c31080b..2fbde73 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -173,6 +173,9 @@ static bool recognizeFixedForm(const char* contents, FortranFormat format) break; case ' ': break; + case '#': + skipLine=TRUE; + break; case '\000': return FALSE; case 'C': diff --git a/src/fortranscanner.l b/src/fortranscanner.l index f6616ad..449b05d 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -1333,6 +1333,9 @@ static bool recognizeFixedForm(const char* contents, FortranFormat format) break; case '\000': return FALSE; + case '#': + skipLine=TRUE; + break; case 'C': case 'c': case '*': |