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