Skip to content

D
doxverilog
Commit 3535e205 authored by Dimitri van Heesch's avatar Dimitri van Heesch
Browse files
Options

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

Bug 623299 - Fortran: quotation after define causes error
parents 49e47541 f083109d
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 0 deletions
src/fortrancode.l
View file @ 3535e205
...@@ -173,6 +173,9 @@ static bool recognizeFixedForm(const char* contents, FortranFormat format) ...@@ -173,6 +173,9 @@ static bool recognizeFixedForm(const char* contents, FortranFormat format)
break; break;
case ' ': case ' ':
break; break;
case '#':
skipLine=TRUE;
break;
case '\000': case '\000':
return FALSE; return FALSE;
case 'C': case 'C':
......
src/fortranscanner.l
View file @ 3535e205
...@@ -1333,6 +1333,9 @@ static bool recognizeFixedForm(const char* contents, FortranFormat format) ...@@ -1333,6 +1333,9 @@ static bool recognizeFixedForm(const char* contents, FortranFormat format)
break; break;
case '\000': case '\000':
return FALSE; return FALSE;
case '#':
skipLine=TRUE;
break;
case 'C': case 'C':
case 'c': case 'c':
case '*': case '*':
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment