We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b49c789 commit 66d5541Copy full SHA for 66d5541
flang/lib/Parser/prescan.cpp
@@ -564,7 +564,7 @@ bool Prescanner::MustSkipToEndOfLine() const {
564
return true; // skip over ignored columns in right margin (73:80)
565
} else if (*at_ == '!' && !inCharLiteral_ &&
566
(!inFixedForm_ || tabInCurrentLine_ || column_ != 6)) {
567
- return !IsCompilerDirectiveSentinel(at_);
+ return !IsCompilerDirectiveSentinel(at_ + 1);
568
} else {
569
return false;
570
}
0 commit comments