diff options
| author | Peter Collingbourne <peter@pcc.me.uk> | 2025-07-18 13:26:00 -0700 |
|---|---|---|
| committer | Peter Collingbourne <peter@pcc.me.uk> | 2025-07-18 13:26:00 -0700 |
| commit | 9bf3524731070cadc6175707314f3b6ca37190d5 (patch) | |
| tree | 86dcab7604336b01ae938fe81062c29ff69efba8 /flang/lib/Parser/prescan.cpp | |
| parent | 3a84c15cc13b6daf8e812592898ab6c7f19091a9 (diff) | |
| parent | 4f43f0606c3d7e1ce6d069583b5e59f036e112ce (diff) | |
Created using spr 1.3.6-beta.1
Diffstat (limited to 'flang/lib/Parser/prescan.cpp')
| -rw-r--r-- | flang/lib/Parser/prescan.cpp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/flang/lib/Parser/prescan.cpp b/flang/lib/Parser/prescan.cpp index ec894ab8513d..3a9a475c365e 100644 --- a/flang/lib/Parser/prescan.cpp +++ b/flang/lib/Parser/prescan.cpp @@ -179,7 +179,9 @@ void Prescanner::Statement() { EmitChar(tokens, *sp); } if (inFixedForm_) { - while (column_ < 6) { + // We need to add the whitespace after the sentinel because otherwise + // the line cannot be re-categorised as a compiler directive. + while (column_ <= 6) { if (*at_ == '\t') { tabInCurrentLine_ = true; ++at_; |