diff options
| author | Dimitri van Heesch <dimitri@stack.nl> | 2014-04-21 18:14:24 (GMT) |
|---|---|---|
| committer | Dimitri van Heesch <dimitri@stack.nl> | 2014-04-21 18:14:24 (GMT) |
| commit | 3535e205764fc04b88534d0c486b1c29fafbad09 (patch) | |
| tree | acf62681f5f0023d6ace7bce594d934545ff69eb | |
| parent | 49e4754186150eadc7e3eae4a2dbc282be8d213e (diff) | |
| parent | f083109de116ee2c6e2a31a15ebc17d2dff008e0 (diff) | |
| download | Doxygen-3535e205764fc04b88534d0c486b1c29fafbad09.zip Doxygen-3535e205764fc04b88534d0c486b1c29fafbad09.tar.gz Doxygen-3535e205764fc04b88534d0c486b1c29fafbad09.tar.bz2 | |
Merge pull request #159 from albert-github/feature/bug_623699
Bug 623299 - Fortran: quotation after define causes error
| -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 '*': |