From 62d4d65ad07413ca2f6d04939e2273dc3e0db957 Mon Sep 17 00:00:00 2001
From: Dimitri van Heesch <dimitri@stack.nl>
Date: Fri, 18 Mar 2011 12:28:51 +0000
Subject: Partial revert "Fix for bug 644350: fixed format line continuations."

This _partially_ reverts fixes already applied by the patch from bug 521861.
---
 src/fortranscanner.l | 11 +++++------
 1 file 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]=' ';
-- 
cgit v0.12