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

    <tr>
        <th>Summary</th>
        <td>
            [flang] legacy extension of kind selector does not work properly
        </td>
    </tr>

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

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

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

<pre>
    In the following example (`test.f`):
```fortran
      subroutine test(r8heap, i8heap, scrsize)
      integer*4 i8heap(*)
      real*8 r8heap(scrsize)
      end
```
flang says:
```
$ flang-new test.f
error: Could not scan test.f
./test.f:3:28: error: Unmatched ')'
        real*8 r8heap(scrsize)
 ^
```

I had similar issues with `integer*4 i8heap(*)` but I could not reproduce it. I suppose it has the same reason like with `real*8 r8heap(scrsize)`.

Used version:
```
bin/flang-new --version
flang-new version 18.0.0git (https://github.com/llvm/llvm-project.git 5518a9d7673bfe55b4110bea049140316d032fbf)
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUVO1yqzYQfRrxZyeMWL7ED37Qm3omD3AfQKAF1MgSI4nruE_fQXac9PY203o8wEp7lnP2rJAh6MUS9az-jdXPmdzj6nw_u7fopc1Gp679i4W4EszOGHfRdgF6k-fNEDAUrOGRQsxn1nCGHSsHxp8ZH44w_Wfnj0q3VUi_sI_e7VFbggPLUHixktwYfgP9eAqTD_pPOop-wmobaSHPcKgeuYLh8FOaJ2kYDgLeK4tflyOrfuJ7C2cj7QJBXsM_Fd1DrCBlPVm6wL0HaYe8d56VA3xzu1FgXYQwSfu3nJzh6R6XQ8nKAcWBeEC_27OM00oKGLYHZ2w_0_5PAln9-6-Zp-sLrFJB0GdtpAcdwk4BLjquwBr-VZcbDuMe4QWmhzxPm3dqnwh0zOEFwr5tLhwRrDKk4QnyTAfp4CwY_UqPV30ppOH5Z87fAyn4QT5oZ__Nl1FbhqcPZ56e3gEfxqaN-zIUIuc5X3Q8xnmNcUuW44nhadFx3cd8cmeGJ2N-vN-eNu_-oCnmB6quCyE71TZtOc5U12NVFHwkyauuqHhZNIqXOI_zw5gH4Uz1perKTmbUFy2vRVfzosrWfpobKep5EpWou5pkWU9i5ooKKSpVYZHpHjlWvEDkZVWWVV61LZIqJFJTjqrjrOJ0ltrkB93c-SVLDvet6LDNjBzJhHTkEVNHGOJx-n2f5I37EljFjQ4xfFSIOpr0nbgh6mcwtMjpCvQWyaZeuhletVUQyNAUnQflKKQRuTj_Cpt3G3lzzXZv-v_Xaoan24wyPCURfwUAAP__t3Romw">