[flang-commits] [flang] [Flang] Solved issue with inline compiler directive (PR #143699)

[via flang-commits]

llvmbot wrote:


<!--LLVM PR SUMMARY COMMENT-->

@llvm/pr-subscribers-flang-parser

Author: Ebin-McW (EbinJose2002)

<details>
<summary>Changes</summary>

Issue was with pointer passing.
Fixes #<!-- -->139297

---
Full diff: https://github.com/llvm/llvm-project/pull/143699.diff


1 Files Affected:

- (modified) flang/lib/Parser/prescan.cpp (+1-1) 


``````````diff
diff --git a/flang/lib/Parser/prescan.cpp b/flang/lib/Parser/prescan.cpp
index 9aef0c9981e3c..2232b94b8da11 100644
--- a/flang/lib/Parser/prescan.cpp
+++ b/flang/lib/Parser/prescan.cpp
@@ -564,7 +564,7 @@ bool Prescanner::MustSkipToEndOfLine() const {
     return true; // skip over ignored columns in right margin (73:80)
   } else if (*at_ == '!' && !inCharLiteral_ &&
       (!inFixedForm_ || tabInCurrentLine_ || column_ != 6)) {
-    return !IsCompilerDirectiveSentinel(at_);
+    return !IsCompilerDirectiveSentinel(at_ + 1);
   } else {
     return false;
   }

``````````

</details>


https://github.com/llvm/llvm-project/pull/143699