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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Parse failure after spurious "Possible truncated Hollerith literal"
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
    flang-new (built from LLVM commit 748922b31f7f1f48af76efc66a7af0674b1c4c06) fails to parse
https://github.com/python-control/Slycot/blob/v0.3.5/slycot/src/MC03MD.f

```
$ flang-new -c slycot/src/MC03MD.f
./slycot/src/MC03MD.f:318:19: warning: Possible truncated Hollerith literal
                 DO 100 H = 1, CP2
                    ^^^^^^^^^^^^^^
error: Semantic errors in slycot/src/MC03MD.f
./slycot/src/MC03MD.f:318:30: error: No explicit type declared for 'CP2'
                 DO 100 H = 1, CP2
                               ^^^
```

`gfortran` 12.2.0 is happy with this file.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJytU01v2zAM_TX2hYihD38efOiaDT00W4ACu8uyZGtTLEOSm-Xfj3bbFSi6oMBmCBQlGo985FPn-kurrZiG3aTOkLC6W4yNoL07wf399wNIdzqZCFVeN4x1nOpKU53XQlel0rIsRSU0Kau8ozKXpExYA1oYGyA6mIUPKiH7hNyMMc4h4TcJ-4JrMHFcugyx8TBf4uimnXRT9M7ixYO9SBfR6azrcHskGc8KdMJLIHiJ9nBL-GGf6acMz7Ykz-vpyHJ4pbeTcBUiu5KD33Bao6UNGjgLP5lpWN2jC8F0VkH0yyRFVD3cOWuVR45gTVRe2Cd4ePvtvwElBO4g4XugCbuF2yP7y7_4JcXnj64NQ3nv_FrigzqJKRoJ200AM_17HzhZkf-k-OpA_ZqtkaiVeJkV9Epa4bEZ2nnUVbUyY9X_acS7PXl3_C-XA1YRvZjQBcoylhEwAUYxzxc4r4OKI561sSpLVUvLsuK0yFmT9i3vG96INJpoVZsUnzY5JcUejqu6N7EvXoHQOGkI8-KNWwIyZh8SBmPp4m175XlY-_iy7Wbvfii5TsWEsKiATlFXnKVjK1hfS1URqWlTdFXD815ozesi7xnDWGpFp2xYGWDS9TVsEOgjl9S0jDBGKaG0oIQ1Wd-VJSkLolSVa1mTJCcoImOztY7M-SH17VZStwwBg9aEGF6DAqkPk9oatuKLBd-4b0dx_mmmMKdb7nar_TftKkze">