From c9d16c13ce3b0d56634265710d2b655c2d464f1f Mon Sep 17 00:00:00 2001
From: olegator <olegator@afe2bf4a-e733-0410-8a33-86f594647bc7>
Date: Fri, 18 Mar 2011 12:28:34 +0000
Subject: Fix for bug 644350: fixed format line continuations.

---
 src/fortranscanner.l | 15 ++++++++-------
 1 file 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()
 {
-- 
cgit v0.12