diff options
| author | olegator <olegator@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2011-03-18 12:28:51 (GMT) |
|---|---|---|
| committer | olegator <olegator@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2011-03-18 12:28:51 (GMT) |
| commit | ffce2dce60901da5cf765d6452b8e8d505b80754 (patch) | |
| tree | 508ebb12307a415eda445ef2fb51e14bad8b33fe | |
| parent | c9d16c13ce3b0d56634265710d2b655c2d464f1f (diff) | |
| download | Doxygen-ffce2dce60901da5cf765d6452b8e8d505b80754.zip Doxygen-ffce2dce60901da5cf765d6452b8e8d505b80754.tar.gz Doxygen-ffce2dce60901da5cf765d6452b8e8d505b80754.tar.bz2 | |
Partial revert "Fix for bug 644350: fixed format line continuations."
This _partially_ reverts fixes already applied by the patch from bug 521861.
| -rw-r--r-- | src/fortranscanner.l | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 6defa39..4dad36d 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -1225,13 +1225,12 @@ static const char* prepassFixedForm(const char* contents) case 'C': case 'c': case '*': - if(column==1) { + emptyLabel=FALSE; + if(column==1) newContents[j]='!'; - emptyLabel=FALSE; - break; - } else { - // proceed to the next rule - } + else + newContents[j]=c; + break; default: if(column==6 && emptyLabel) { // continuation newContents[j]=' '; |