<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/89560>89560</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error of Fixed Source Form Conditional Compilation Sentinels
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            openmp,
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 19.0.0(4f19f15a601a5761b12c9c66d99d97dbc89ef90d)/AArch64
```

The third line of the following program does not meet the criteria of the following standard,
so this line should remain unchanged and be considered a comment line.
- OpenMP 5.2 / 3.3.1 Fixed Source Form Conditional Compilation Sentinels

However, this line results in a compilation error.


The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.

sngg075g_2.f:
```fortran
 program main
      k01=-1
c$ x
      print *,'pass'
 end

```

```
$ flang-new -fopenmp sngg075g_2.f
error: Could not parse sngg075g_2.f
./sngg075g_2.f:4:1: warning: Character in fixed-form label field must be a digit
        print *,'pass'
 ^
./sngg075g_2.f:3:5: error: expected '=>'
  c$ x
 ^
./sngg075g_2.f:3:4: in the context: pointer assignment statement
  c$ x
     ^
./sngg075g_2.f:3:3: in the context: execution part construct
  c$ x
    ^
./sngg075g_2.f:2:7: in the context: execution part
        k01=-1
        ^
./sngg075g_2.f:1:7: in the context: main program
        program main
        ^
./sngg075g_2.f:3:5: error: expected '('
  c$ x
      ^
./sngg075g_2.f:3:4: in the context: pointer assignment statement
  c$ x
 ^
./sngg075g_2.f:3:3: in the context: execution part construct
  c$ x
    ^
./sngg075g_2.f:2:7: in the context: execution part
 k01=-1
        ^
./sngg075g_2.f:1:7: in the context: main program
 program main
        ^
./sngg075g_2.f:3:5: error: expected '='
 c$ x
      ^
./sngg075g_2.f:3:4: in the context: assignment statement
  c$ x
     ^
./sngg075g_2.f:3:3: in the context: execution part construct
  c$ x
    ^
./sngg075g_2.f:2:7: in the context: execution part
        k01=-1
        ^
./sngg075g_2.f:1:7: in the context: main program
        program main
 ^
./sngg075g_2.f:3:5: error: expected ':'
  c$ x
 ^
./sngg075g_2.f:3:4: in the context: nonlabel DO statement
  c$ x
 ^
./sngg075g_2.f:3:3: in the context: DO construct
  c$ x
 ^
./sngg075g_2.f:3:3: in the context: execution part construct
  c$ x
    ^
./sngg075g_2.f:2:7: in the context: execution part
 k01=-1
        ^
./sngg075g_2.f:1:7: in the context: main program
 program main
        ^
$
```

```
$ gfortran -fopenmp sngg075g_2.f; ./a.out
 pass
$
```

```
$ ifort -qopenmp -diag-disable=10448 sngg075g_2.f; ./a.out
 pass
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzsV09v47YT_TT0hZAgUf-sgw5KtPr9LkUKbNFrQZEjiVuJVElqk377gpQd26kTL7YJ0AUqGLZJk_M4897QM9QYMUiACmV3KGt2dLWj0pUapQr6L7tO8T8rlEeHV9SgqP4VtBFKYtXjfqJyCCQ8YpTUOC7DKIwQ2ad9XPZxRvMoplmRx11MWMnynJclLwvesX0JfRlxREpE2rrWbMzTzfgLrO39lxGwHYXmeBISHLAdAfdqmtSjkANetBo0nTFXYLBUFs8A1q9hWljQgv59j7FUcqo5IvcbiFEOw2wQZlTrxLGGmQqJV8lGKgfgmEqOO8BMSSM4aDeDmZpnkNZvDDdbAX5YQP70M85CghFpcRImYYxb8QQcf1arZoBbpWd8ryQXVihJJ3yv5kVM1I3wZ5BWSJjMeRj-rx7hK2hE7s9OqsGskzVYyO0ozyZAa6XD8_2nYJ7CQDX4wFgw9hhHB9AemXWD__VKW02ld1-4wTkSIi08AVs96nacC1gjhyEqsuE3EvYoqV_wfDC9zT4z6cJ-mPLP71GMkiaItzmGSIqfzn9ftJAWI1I7OkmxUGMQKQ4rQPKLMFyT2MtJkp6JO-jVAnJe8IUrfqGPshP_vReME99CtYErS0NE2hexSFFSx273I9VSyMEbGqmmzIJ2lPZOMUHvpDLRDibcC5g4nldjnQ4p5mIQ9jwSN2KBsk-vniZBSZ25Izw7BU8LMAscOwNJg5JPJ0v4goVbdp2nziGflEpaeLJuZlFCOle3a8inkbHUgvt2Fcc9t7CS61gnkS7UK1gaq1f2Ks5bMAQldfEtMJfUXMr4OPsWUPw6kL-ajin7QgHXs-h26N6gn-xf4_6bLL-XAH5A8j-a9Q-hO2lOdL8b2_-l-Qen-T8hvH7nu10quf1nNQ8fk9PNww12f0AF_QvuCkTeqsWvFErDsTy8Xicld9gdm4ZqPXrpa5LvA9vKz-CPA1LABR0CLgztJkBJE0dpun8H_B2vEl4mJd1BFRdxUqRlnke7saKEpbzLu6jn0O2h510Hac7jPiuydF-SnahIRNIoJSSKk5REIcso7VmcEVKwOIsZSiPXVkzhNH2dQ6WHnTBmhWpfZnm08yljfDtGyOYkIsSXcsRXpG6UNTtdue1Btw4GpdEkjDUng1bYybd0voxHWYOyu60jQVlz0Wj4u8B1R9_Rm-xWPVWjtYvxl0eLSDsIO65dyNSMSOuOc_gIFq2-ALOItN5Zg0jr_f0rAAD__1csJSw">