Skip to content

D
doxverilog
Commit c9d16c13 authored by olegator's avatar olegator
Browse files
Options

Fix for bug 644350: fixed format line continuations.

parent 59239656
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 7 deletions
src/fortranscanner.l
View file @ c9d16c13
...@@ -1225,12 +1225,13 @@ static const char* prepassFixedForm(const char* contents) ...@@ -1225,12 +1225,13 @@ static const char* prepassFixedForm(const char* contents)
case 'C': case 'C':
case 'c': case 'c':
case '*': case '*':
emptyLabel=FALSE; if(column==1) {
if(column==1)
newContents[j]='!'; newContents[j]='!';
else emptyLabel=FALSE;
newContents[j]=c; break;
break; } else {
// proceed to the next rule
}
default: default:
if(column==6 && emptyLabel) { // continuation if(column==6 && emptyLabel) { // continuation
newContents[j]=' '; newContents[j]=' ';
...@@ -2029,8 +2030,8 @@ void FortranLanguageScanner::parseCode(CodeOutputInterface & codeOutIntf, ...@@ -2029,8 +2030,8 @@ void FortranLanguageScanner::parseCode(CodeOutputInterface & codeOutIntf,
bool FortranLanguageScanner::needsPreprocessing(const QCString &extension) bool FortranLanguageScanner::needsPreprocessing(const QCString &extension)
{ {
(void)extension; return !(extension==".f"||extension==".f90"||
return TRUE; extension==".f95"||extension==".f03");
} }
void FortranLanguageScanner::resetCodeParserState() void FortranLanguageScanner::resetCodeParserState()
{ {
......
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