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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Bug about compiler directive in parser
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          PeixinQiao
      </td>
    </tr>
</table>

<pre>
    The test case is from WRF 4.0.2 (https://github.com/wrf-model/WRF/blob/a9017c2de1e8430a02e5a798b756892846ac30c0/phys/module_ra_rrtmg_swf.F#L9726).
```
subroutine test()
  real, dimension(59) :: pref, prefd, ptra, ptrad
!DIR$ ASSUME_ALIGNED pref:64,prefd:64,ptra:64,ptrad:64
end
  call test()
end
```
```
$ flang-new -flang-experimental-exec test.f90 
error: Could not parse test.f90
./test.f90:17:29: error: expected end of line
  !DIR$ ASSUME_ALIGNED pref:64,prefd:64,ptra:64,ptrad:64
                              ^
./test.f90:17:1: in the context: specification construct
  !DIR$ ASSUME_ALIGNED pref:64,prefd:64,ptra:64,ptrad:64
  ^
./test.f90:17:1: in the context: declaration construct
  !DIR$ ASSUME_ALIGNED pref:64,prefd:64,ptra:64,ptrad:64
  ^
./test.f90:16:3: in the context: specification part
    real, dimension(59) :: pref, prefd, ptra, ptrad
    ^
./test.f90:14:1: in the context: SUBROUTINE subprogram
  subroutine test()
  ^
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzFVNtu2zAM_Rr7RYihi68PfnCbdCjQdVvTYo-BLMuOBtkKJLmXvx_tXDp0aDAMHWYIomhSR4eUyNo0L-X9ViIvnUeCO4mUQ601Pfp-d4XiCEcUBTTfer9zAasCegWjU3471pEwPShPtl30ppEa1rAH5lqbGgQvMMkEbSSRecwwx1QmPCvyOkvSvKB5nHLBsMDgutu-OBAAM2q5sXxjre-7jXtqIwBkN0VG04AWUYCXAa6CFB_GrLqxtmb0athHAWzBdW9CyEoOxC5Ro3o5OGUGMCcFOKApGlahnZXt5DDJZl54y4-yORxIyfL6LqAxqtbrh8-rTXVz_el2tdxvZlUaw4Y9wFGZQH5ZHwwzmhyaIzvBtf6N9Mn-Js63KtBpNR-6xSCf0GK_lM87aadQPdegSDGjR22B0QHcWmOnuC_NqBs0GI923Dp58tu7RXAbpz-sIhlMwA_2nQCmo4SXDQK-yLRIwwUc4_rYhKGzX5Cs3udMJqZqQB6euDCDl89--uOAumqV4B5exGRw3o7C_yv6f0OxkUJz-78JpjCxP8khPCL_elsfUnVnLzd-P3Prh4u7Lw_317crBK1hZ01neX-EPNssTqe9KbVQliRNC0xzTIqwKVlTsIKHXnktyyC5mGsvSJboYuwQrwEf-PQ7paWFFFgoE_UoJ6ZzqdlwtLo801G1fjyKBdD_AftBVc6NcuqSSUFwFm7LGuMmZxmWOImJKDLG2jrHXGCCBamZCDWvpXYTwYDSPUdWQW-HTEGLoRQYh6qkmFJCYOCEsSLCgra5qNM257wmCQliLHuudDTRiYztQlvOzOqxc2DUynn3auTOqW6Qc1omfD76rbHlV6me1fBNcRPOcZRzED8BPcbgpg">