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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] No error checking of a continuation line that does not have a line to be continued in Fixed Source Form Conditional Compilation Sentinel
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang : 21.0.0(c8b40867d144395ad3c306a3cf87f970e0f97f07)/AArch64
```

The attached program is incorrect.  
In `Fixed Source Form Conditional Compilation Sentinel`, flang does not output an error message during compilation for a continuation line that does not have a line to be continued.

The following are the test program, Flang, Gfortran and ifx compilation/execution result.

err_sngg081g_2.f:
```fortran
c$   !   0      !

      print *,'pass'
      end
```

```
$ export OMP_NUM_THREADS=2; flang -fopenmp err_sngg081g_2.f; ./a.out
flang-20: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
 pass
$
```

```
$ export OMP_NUM_THREADS=2; gfortran -fopenmp err_sngg081g_2.f; ./a.out
 pass
$
```

```
$ ifx -qopenmp err_sngg081g_2.f
err_sngg081g_2.f(1): error #5118: First statement in file must not be continued
c$   !   0 !
-----^
err_sngg081g_2.f(1): error #5082: Syntax error, found INTEGER_CONSTANT '0' when expecting one of: <LABEL> <END-OF-STATEMENT>
; <IDENTIFIER> TYPE MODULE ELEMENTAL IMPURE NON_RECURSIVE ...
c$   !   0 !
---------^
err_sngg081g_2.f(1): error #6905: A label cannot be zero; it must be an integer in the range 1 through 99999.   [0]
c$   !   0 !
---------^
err_sngg081g_2.f(1): error #6321: An unterminated block exists.
c$   !   0      !
^
err_sngg081g_2.f(1): error #6323: This label is not defined in this scoping unit.   [0]
c$   !   0 !
---------^
compilation aborted for err_sngg081g_2.f (code 1)
$
```


</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJysVl-PmzgQ_zTOyyjI2BDCQx5IAr1Iu9nVJtvTPa0cGMAtsTnbtOl9-pMJbXPX9tRVz4oUezAzv_nNP4S1slGIKxKvSbydicG12qx0q_S8fjc76erTiizo9KPZWzRWagW6hroTqgHCM2BhQANK2LJcniK6XCRVGEU8jUXFS04Xgpf1MqnThCKt06SmCWEpYUWWmbJdRIRmtxYIzY4tgnBOlC1W0BvdGHEGaUGqUhuDpQsACM12CsiCFvKCFRz0YEqEQpszbLSqpJNaiQ42-tzLTvgTHFA5qbDzdthmwl9ptKC0Az24fnAgFKAx2sAZrRUNQjUYqRoobxTV2oCAUnt1w1XUSYXgWuG-KmzFBwQxPdFwws9vYBV89bPWXac_egvCeA0IDq377LXHWXicfvOm1sYZoUCoCmR9ucVEWIEXLIcRjEE7dG4ygsa8WNU0dBk2LyyoCc9uGZ90EpqVhEUAQFgIABTGRVh41XI99kYqB4RlhG0IS3phLWHJl8eoqm-D-Y8jiwAvvTYOHu4fX_bP9y_H357ybHsgfMsIX09Bmde6R3Xu4VvwawgIK0SgB0doNl6fM-qz8KMwSqrGbx96VPePYId-tCXVpFdasE52nQeBRp5ROdEBidfz328lc92PnMZb79ro5Yj9V51rPgfwp_17lXGfEvM_f6T5O5nAlqGvRJ5NKU8Yj8Nw6QWFNNaBdcKh52SkUHYI58G6Mbtv0_nb5LnmzdwvEuc_a5sumRccPiknLlf5WKh6UBXs9sf8Tf70snnYH47Z_giEJZSwBD62qMaAls6XkVYI2mc5EL65y9b5HeG53-f77fyhmB-O2TG_z_dHwj0wzzjhm9023x93xS5_8rePfzzmcP-wfb7LIb8bb2d3sLt_fH7KYf-wf3nKN89Ph93bHIIg-E_3X0fBIqWxF2TQiRN2UAo1kf0XGu2xSneNwQl9q5LKYYPGh8e3DiNUgxCCa40emhZSvwIPLF7Tazr_b0g5C0ekCgbl0JylEg4rOHW6fA94kdbZ7zBz21VeY4t7wbGVdiJGXntshbVUWF3999Vd6t4nwaCke73ftz1enLTx_vhe_2-M4EedrhBGpD-ozlm14lXKUzHDVZhENF3QKOKzdhVV1amiyGO24CGlEVKeIuU0DRnlaZLM5IpRFlNOOaU0YSwI-bISnIenJE0qkVISUTwL2QVd9-EcaNPMpLUDrkKWRnEyGxmy40RnbGx8hGfXtkAY81PerPyb89PQWBLRbozVF11Oum78HrgOnnhL4vW1oZJ4C3s9xaVssXw_Flz9a8PQB-_1Q3w2mG7VOtdbP9BYQVjRSNcOp6DUZ8IK7870N--NfoelI6wYebKEFRNVH1bs7wAAAP__ggeulg">