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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Execution error of data edit descriptors without width
        </td>
    </tr>

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

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

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

<pre>
    This is an issue from Fujitsu testsuite.

The execution of a program compiled by flang-new terminates with a fatal error.

In the program, there is a data edit descriptors without width. This is not Fortran standard, but it's listed in supported features in [Extensions.md](https://github.com/llvm/llvm-project/blob/main/flang/docs/Extensions.md).
> * Data edit descriptors without width or other details

The following are the test program, Flang's execution result.

```fortran
! test.f90
write(6,'(d)')1.0
write(6,'(e)')1.0
write(6,'(f)')1.0
write(6,'(g)')1.0
write(6,'(i)')1
write(6,'(l)').true.
write(6,'(b)')1
write(6,'(o)')1
end
```
```console
$ flang-new -v test.f90 
flang-new version 18.0.0 (https://github.com/llvm/llvm-project.git acef83c142619abf270145c91093c76c9d6d5ede)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /path/to/install/bin
Found candidate GCC installation: /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12
Selected GCC installation: /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12
Candidate multilib: .;@m64
Selected multilib: .;@m64
 "/path/to/install/bin/flang-new" -fc1 -triple aarch64-unknown-linux-gnu -emit-obj -fcolor-diagnostics -mrelocation-model pic -pic-level 2 -pic-is-pie -target-cpu generic -target-feature +neon -target-feature +v8a -o /tmp/test-db7abc.o -x f95-cpp-input /path/to/test.f90
 "/opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/../../../../bin/ld" -pie -EL --hash-style=gnu --eh-frame-hdr -m aarch64linux -dynamic-linker /lib/ld-linux-aarch64.so.1 -o a.out /lib/../lib64/Scrt1.o /lib/../lib64/crti.o /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/crtbeginS.o -L/path/to/install/lib/clang/18/lib/aarch64-unknown-linux-gnu -L/opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12 -L/opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -L/lib -L/usr/lib /tmp/test-db7abc.o -L/path/to/install/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm -lgcc --as-needed -lgcc_s --no-as-needed -lc -lgcc --as-needed -lgcc_s --no-as-needed /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/crtendS.o /lib/../lib64/crtn.o
$ ./a.out 

fatal Fortran runtime error(/path/to/test.f90:2): Invalid FORMAT: integer expected at ')'
Aborted (core dumped)
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8V99vo7oS_mucl5ERGBLCQx7Splwdaa-udLrvR8aegLvGRrbpj__-ykDSNrvpdqXdI1U0Hn-MPd_MmM_ce9UaxB1Z35D1YcXH0Fm3exl9XmYpPT6sGitfdl875UF54AaU9yPC0dke6vFBBT9CQB_8qAImJD2QdD8_v3YI-IxiDMoasEfgMDjbOt6DsP2gNEpoXuCouWmpwScI6HpleEAPTyp0wOHIA9eAzln3zvVfBkKHJ3eE3cahw2mHIHnggFIFkOiFU0OwbvZoxwBPSoYugVNAxgaorQuOG_CBG8mdjP6aMYAKhJUetPIBJSgDfhwG6-LgiDyMDn20kvXN3XNA45U1PuklWR8I23YhDJ7ke8JqwupWhW5sEmF7wmqtH0__6ODsA4pAWN1o2xBW91wZwuqJFcJqaYUnrH6_AKtObOR3QNgeDj8PGawDG1kCiYEr7S9TdbRa2ydlWuAOJ3pjWt9yXM97Kv2btDr0ow7vkkM26fx3nHldrCybHCbHKp0tT04FJGy7IeyWsJKwbYxs-lVlyVUQfgZ0_Ayo_QxIvYKuQfQZkgQ3nprge1zzc1f2EoJGXrB6MRTWeKvxRHLxpp_o45lxmOdf5x7RxXKCbJukSQq_XLBJqwJwgcdtLrKCbbKKN0dWplmxFlWWVrkoN6KSG7lGOWVsrjPuWgwk3wPnTnSbgo7mm7FPhmplxmfamvFUkA65hN5K1BE-WK-eT73vA9ca5UG5OEVYPfDQEVYHS1it5unYUGopvdqORoLgRirJA8J_bm9hgfFYxIsXO8Q2dNFTKwQN1mqPgWYsWq2Nk6N3kQfVzBjC6lMcDmXHwxwGYXXG5qXvUaOIB8a_uObtOdB-1EHFN_M9JCS_IUXab4qLnX0EAsLYh_wuB1UsKcIY0KPIgAanBo3XUwwUexWobR7iC1ZbR6XirbE-KOGB9g61FRNNdKoAGJQAOihBNT6iBjYPlKeDQqBhqioqhhFaNOgieLEt5zQQdmPQmh_ZH7ccqI3JCP0Qn-gDlU3JG5FYoM9wrNZUDANVZhjDZbm9P9IWvn5zVlmdJN8_Zvq1nHifeLj7ApR23HfUhxeNJD9MZFPs6NHxHmknHdD-lJhpBaDyxfA-UqvMN3Rw3pWWS8YWeOJtkkWmeGJnHmbctBmtmk1BWH0vXMgSe2VWuKDmyd_OkHChwVaZ-5izL1drdnYnlo9rtj2bPijWL799v3_C55Uqmaif17tMyGx9u8QP3rgAXW2TDykHqheN9U-UN6_Dv0cTVI-vhgMK1XMNVPdAdSsEUMo9NYgS5Wz5xwOlxr4zi8-D_1DxoZH3H9W9SezrJzrOLV30RjfNYvckRt1CzSR-CdteO3fyPYuf13wPf5lHrpWE-n9__3f_NVqUCdiiA3we5rOex74tF40xLbpvZkFL2FZYhyDHfkB5_mCfZcZK7nJZ5RVf4S4r0zTblkVVrbodirxoJC845oJVaSoLznNRcFGmWIiyXKkdS1meZVmZsmybVclG4LooWVau13nGq4oUKfZc6STqi8S6djVdMXYlW1flSvMGtZ-uJ4zNqjjfL-TE03Z9WLndpEyasfWkSKNc96--ggp6ut3M6nV9gLuzeJ24jTeTT1wZVqPTu18W9VMkUcBPwfw_AAD__xA6K2Q">