<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">