Merge pull request #159 from albert-github/feature/bug_623699

Bug 623299 - Fortran: quotation after define causes error

Merge pull request #159 from albert-github/feature/bug_623699
Bug 623299 - Fortran: quotation after define causes error
3535e205 · Dimitri van Heesch · 49e47541 · f083109d · 3535e205 · 3535e205
Commit 3535e205 authored Apr 21, 2014 by Dimitri van Heesch
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

fortrancode.l src/fortrancode.l +3 -0

fortranscanner.l src/fortranscanner.l +3 -0

No files found.
--- 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':

--- 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 '*':