Commit f083109d authored by albert-github's avatar albert-github

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
parent cf591d2e
...@@ -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':
......
...@@ -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