diff options
| author | olegator <olegator@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2011-03-18 12:28:34 (GMT) |
|---|---|---|
| committer | olegator <olegator@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2011-03-18 12:28:34 (GMT) |
| commit | c9d16c13ce3b0d56634265710d2b655c2d464f1f (patch) | |
| tree | 738cf3cf9c37d43b32e0720c442b98ec215bae1d /src | |
| parent | 59239656198450d33e02dae5e29bb084c081d52f (diff) | |
| download | Doxygen-c9d16c13ce3b0d56634265710d2b655c2d464f1f.zip Doxygen-c9d16c13ce3b0d56634265710d2b655c2d464f1f.tar.gz Doxygen-c9d16c13ce3b0d56634265710d2b655c2d464f1f.tar.bz2 | |
Fix for bug 644350: fixed format line continuations.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fortranscanner.l | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index f34ff69..6defa39 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -1225,12 +1225,13 @@ static const char* prepassFixedForm(const char* contents) case 'C': case 'c': case '*': - emptyLabel=FALSE; - if(column==1) + if(column==1) { newContents[j]='!'; - else - newContents[j]=c; - break; + emptyLabel=FALSE; + break; + } else { + // proceed to the next rule + } default: if(column==6 && emptyLabel) { // continuation newContents[j]=' '; @@ -2029,8 +2030,8 @@ void FortranLanguageScanner::parseCode(CodeOutputInterface & codeOutIntf, bool FortranLanguageScanner::needsPreprocessing(const QCString &extension) { - (void)extension; - return TRUE; + return !(extension==".f"||extension==".f90"|| + extension==".f95"||extension==".f03"); } void FortranLanguageScanner::resetCodeParserState() { |