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

[via flang-commits]

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

Issue was with pointer passing.
Fixes #139297

>From 66d554174f620ccb26d14916632e1864afb1f62d Mon Sep 17 00:00:00 2001
From: EbinJose2002 <ebin.jose at multicorewareinc.com>
Date: Wed, 11 Jun 2025 18:00:42 +0530
Subject: [PATCH] Solved an issue with preprocessor comment handling Issue was
 with pointer passing

---
 flang/lib/Parser/prescan.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
   }