summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fortranscanner.l11
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]=' ';