--Fix for issue #127426

Author: aadeshps-mcw

flang/lib/Parser/prescan.cpp

@@ -435,6 +435,7 @@ void Prescanner::LabelField(TokenSequence &token) {
   int outCol{1};
   const char *start{at_};
   std::optional<int> badColumn;
+  SkipCComments();
   for (; *at_ != '\n' && column_ <= 6; ++at_) {
     if (*at_ == '\t') {
       ++at_;

flang/test/Parser/inc.h

@@ -0,0 +1,4 @@
+/* Old style C comments
+*comments
+*/
+#define VAL 1

flang/test/Parser/test.F

@@ -0,0 +1,14 @@
+! RUN: %flang_fc1 -fdebug-unparse-no-sema %s 2>&1 | FileCheck %s
+ 
+!CHECK: SUBROUTINE foo
+!CHECK: INTEGER i
+!CHECK: i = 1
+!CHECK: PRINT *, i
+!CHECK: END SUBROUTINE foo
+ 
+      subroutine foo ()
+#include "inc.h"
+       integer :: i
+        i = VAL
+        print *,i
+      end subroutine foo