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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Semantic error while compiling a fixed form file
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          inaki-amatria
      </td>
    </tr>
</table>

<pre>
    - `flang-new` version is: `flang-new version 20.0.0git (https://github.com/llvm/llvm-project.git 2b84ef06ac55ac8de3c210d059ec3a3c96666a90)`
- Reduced test case:
```f90
! foo.f
      INTEGER FD
 WRITE(FD,"(I5,I5,"//
     * "F11.6,F11.6,F11.6,"//
     *                        "F15.7,"//
 *                        "F11.6,F11.6"//
     * "F15.7,F15.7)")
     * IST,JST,X12D,X12A,DX12,COUPL*TOEV,DX1,DX2,
     * EL1*TOEV,EL2*TOEV
      END
```
- `flang-new` invocation is: `flang-new foo.f`
- Expected behavior is: The code compiles successfully.
- Actual behavior: Compilation aborts with the following error:
```
error: Semantic errors in foo.f
foo.f:3:31: error: Expected ',' or ')' in format expression
 WRITE(FD,"(I5,I5,"//
                                ^
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVFFv4zYM_jX0ixBDomMnfvBDZjtDh-Ju6GXbvcoyHWtT7MCS096_HyQ3bS-4dtgJCRma30eTIUVprT4ORAWkv0BaRXJ2_TgVepD_6JU8STdpGTVj-61YMch4Z-RwXA30CBlnF5qsHgemLSS777wvLuQxj_lROwa47Z07eyjgHnB_1K6fm1iNJ8C9MZerWp2n8W9SLvYsbLZr6ngmVZpKtW0pUSh4y9OcVCITlWdZlsmcA-aQceAV8N2KPVA7K2qZI-uYkpb8S4PPg8Kny5_RgIJ14xh3i8nCuft0qH-tH9i-en7618PdoQbc7ivAEhABt3cpYBlEsH1Jb0IA7hgg7oWIM8DyVr9HeeeESGm8-QHzv1jfvfeDPJfozzoP0PwGd_flAFj-FuRXgdWidoBl9VUgYFl-_uP3e8Dd4XP95_I0SO-6CVXfi1dcfY9X400P6k_VTc-u7b2dQz1cRiXdO6O4NPeVXT-dSTlqWUO9vOhxeiYdemJqbL04nbUhy-ysFFnbzcZ8i6_0nXKzNC9kzywDYUlANuPkLHvUrmeuJ9aNxoyPejgymqYA_2FRVyf7Qic5OK0WuGV6eDudy89kl_iv8PgX4ktZgMuYbNg4LUbujRBoOknH6Ok8kfXX82eH-4MDaX1TYNQWSZsnuYyoEBvcrNfIkzTqi5aaBLtMJLwRSuQNpVJmaoO4zWXK-TrSBXJc8xw3IuE8SeOmXYsuyRPsOuJcEqw5naQ2sd8b8TgdI23tTIUQHDMRGdmQsWGzIYaB8MWkVTQVYdE089HCmhttnX0N4bQzYR0ujLS66Ql77LW5TolvrGSdfqI2_L2s04aieTLF_1t2gPuQugV_ZUP2lwL_DQAA__9xtIdb">