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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error by a comment line starting with "! $", "c $", or "* $" in the fixed source form
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 18.0.0(cc627828f5176c6d75a25f1756d387d18539c1fb)
```

`! $`, `c $`, and `* $` (having a space before `$`) at the beginning of a line in fixed source form are treated as conditional compilation sentinels by mistake.

According to OpenMP 5.2 specification 3.3.1 (p.70) 
`Fixed Source Form Conditional Compilation Sentinels` have the following conditions:  
> The sentinel must start in column 1 and appear as a single word with no intervening white space. 

Therefore, these lines should be treated as comment lines.

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

ompfe1002_new2.f:
```fortran
      program main
! $ This is a comment line
C $   This is a comment line
c $   This is a comment line
* $   This is a comment line
      end program
```

```
$ flang-new ompfe1002_new2.f -fopenmp
error: Could not parse ompfe1002_new2.f
./ompfe1002_new2.f:2:5: warning: Character in fixed-form label field must be a digit
  ! $   This is a comment line
      ^
./ompfe1002_new2.f:3:5: warning: Character in fixed-form label field must be a digit
  C $   This is a comment line
 ^
./ompfe1002_new2.f:4:5: warning: Character in fixed-form label field must be a digit
  c $   This is a comment line
 ^
./ompfe1002_new2.f:5:5: warning: Character in fixed-form label field must be a digit
  * $   This is a comment line
 ^
./ompfe1002_new2.f:2:7: error: expected '('
  ! $   This is a comment line
        ^
./ompfe1002_new2.f:2:3: in the context: statement function definition
  ! $   This is a comment line
 ^
./ompfe1002_new2.f:2:3: in the context: declaration construct
  ! $ This is a comment line
    ^
./ompfe1002_new2.f:2:3: in the context: specification part
  ! $   This is a comment line
 ^
./ompfe1002_new2.f:1:7: in the context: main program
        program main
        ^
./ompfe1002_new2.f:3:7: error: expected '('
  C $ This is a comment line
        ^
./ompfe1002_new2.f:3:3: in the context: statement function definition
  C $   This is a comment line
 ^
./ompfe1002_new2.f:3:3: in the context: declaration construct
  C $ This is a comment line
    ^
./ompfe1002_new2.f:2:3: in the context: specification part
  ! $   This is a comment line
 ^
./ompfe1002_new2.f:1:7: in the context: main program
        program main
        ^
./ompfe1002_new2.f:4:7: error: expected '('
  c $ This is a comment line
        ^
./ompfe1002_new2.f:4:3: in the context: statement function definition
  c $   This is a comment line
 ^
./ompfe1002_new2.f:4:3: in the context: declaration construct
  c $ This is a comment line
    ^
./ompfe1002_new2.f:2:3: in the context: specification part
  ! $   This is a comment line
 ^
./ompfe1002_new2.f:1:7: in the context: main program
        program main
        ^
./ompfe1002_new2.f:5:7: error: expected '('
  * $ This is a comment line
        ^
./ompfe1002_new2.f:5:3: in the context: statement function definition
  * $   This is a comment line
 ^
./ompfe1002_new2.f:5:3: in the context: declaration construct
  * $ This is a comment line
    ^
./ompfe1002_new2.f:2:3: in the context: specification part
  ! $   This is a comment line
 ^
./ompfe1002_new2.f:1:7: in the context: main program
        program main
        ^
$
```

```
$ gfortran ompfe1002_new2.f -fopenmp
$
```

```
$ ifort ompfe1002_new2.f -qopenmp
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzsWE1v4zYQ_TX0ZWBBoixZPvjgddY9FS2wi14LmhxJ3EqkSlLx5t8XpGSvPwpbaXzrBkFi0qOZN28ehyKZtbJSiGuSfSLZy4z1rtZmrWul5-W32V6LtzXJ4_E3fiHx5g80VmoFuoSyYaqaKzwASTeQFFEcxYQWnOd0WdCizJJlznOxzBjNymSZ5SItliIpsnTFk3JP6GpweRXhxyRNgNBF-LQFksf8bMiUgPBxM04CoUXNXqWqgIHtGEfYY6kNDmbDcytgDlztv6qkUt5Yl8CgkQpBKijldxRgdW84QqlNC8wgOIPMoQBmgWslpJNasQa4bjvZMD8Ci8pJhY2F_Ru00jr2F0bn-Ww410b4gE7Dbx2qX3-HLKJgO-SylHxwk0Zp5JMuumgZ4J7I2AVkXwZkO49sewZlewblyxGKJ6VmrxgSLnXT6IOPf0rB-rIdI6Sf4WuNpzyg7a0D65hxnheum75VkATaWdchM54NBlaqqkE4aCPgIF0NSoNUDs0rBnYPtXQ4lCOCcz6-1mhCeXwxXY0WQxEs2Fr3jYD9Fe1ti8oNJtGVn7PcQrVqBIfWQWd0ZVjrA-yOUvWDX0ptnGEqJCP94KKUBm3fuIsguu1KTOKY_qnwQKOSpJsr6Y4uh1kIP2N4aJkc50dBw9daWpCevvO8BpttsIC7NnyCzbgwHlgNSFGJE1n3V-T5JF2cdYBrhmBe6g5V2w3GaIw2Xm7bUFylHXTMWLx5bjCPCN39C-eUpJvMezkw49UVHNbMMO7QnJbvPKzbhu2xgVJiIwYt7xEYCFlJd0z9WI4pFJHs811o6XOhTVHBQ0yL52KaorqHmLJnl3CSyh-h8sJaeignneL3DrlvPoQuCS383_-gmse6oaN2fOq-cXGtHH53fsY65jC4LXvFQ2sSWEoVevc70XwAhkDeMDO0Rq6VdabnN0voERUfoeFig-yYee_6fRQ7ORb_NrZv3Zed8VjX2-Y-teLpO7S2nUTu1Kgf0dlTGtIdEHdVNo2Gnxq76PxTNcafprHFBzX2lA3mDoi7GptGw0-NXezk0_fMzdNUln14x3zKK8MdGA92zGlU_B-V5k_p7zp_VMeT3IPjx7sdD6fCW69_T_E6E-tUrNIVm-E6yVf5Kk6LFZ3V6wRjKthCUFHQAuNlgqtFHsc8j5ecimQ_k2sa0zSJfcwkSWmUZMiyZcFWWSoyQTlZxNgy2URN89pG2lQzaW2P67zIs3QWXphtuMyhdERKKaFbQmk4qpF0UxpfLCX8F9nLzKy9p_m-ryxZxI20zv7w7aRrwt1QOD6T7IVkn4arC5K9XNw5hB4A-7crPQ0XCOEeQLoaApjhTifA8hP8bKjNYLIZ5476urmVmfWmWdfOddafxOmO0F0lXd3vI65bQnc-g_HfvDP6G3JH6C5QZQndBbb-CQAA___Nf5kN">