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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Runtime failure with stream formatted I/O
        </td>
    </tr>

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

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

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

<pre>
    Consider the following code
```
program main
use ieee_arithmetic

    complex(4), pointer :: cx1(:,:), cx2(:)
    character(:), allocatable :: string

10 format(dc, 12(" (", e22.15, " ; ", e22.15, " );"))

    open (1, file='valueSeparator005.data', access='stream', form='formatted')

 string = repeat(' ', 800)

    allocate (cx1(2,5))

    cx1 = cmplx(reshape((/(i, i=-10,-1)/), (/2,5/)), &
        reshape((/(i**2, i=-10,-1)/), (/2,5/)), 4)

    write (string, 10) cx1

    !! now read in data from both external and internal files
    allocate (cx2(10))

 read (string, *, decimal='coMMA') cx2
end
```

Flang failed at the runtime with
```
> a.out

fatal Fortran runtime error(t.f:23): Bad real input data at column 51 of record 1
IOT/Abort trap(coredump)
```

All ifort, gfortran and XLF compile and execute the program successfully.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJycVEGPszYQ_TXmMtrINiGBAwc2KdIn9dMntT30Vg1mCK4MRrbZzf77yobsald7ahSF4PE8v3lvPOi9vs1ENSueWXHNcA2jdfUVZ03mchlpzjrbv9UXO3vdk4MwEgzWGPuq5xso2xPjDTvx_cubxdmbwwkm1DPjzeoJNBH9g06HcaKgVUzgDQCAstNi6M5keWSyYvICi9VzIAcsb1jegLoLJsv4Ii_pN21Sd_lYrR5IIzpUgdxHQF4AjbEKA3aGHog-OD3fNgqCw2DdhIHJslcxQSRgKWF7xCWS8iCK-C-t58_wfUBWLH9OoWqjtTOzC80RTsSdgzbE8iuT5xc0K_1JCzoM1nFeHHoMyOQ58VaKvN82-uAIpz0Q6W7LG_FAfYo8ztuqA5ZfwdFCqTImz7Cnl5x_4rbrQ5HfJnWsrPhagrqLBKmmxUSzHPkRF0rYJZMtk6WO8Jrl1yfBmbw8iYTR7j5s23bsdodP66f9iPj5HrZhspH_C_34qYhXp7dC9w6Ibkc1Uo-972JSMClgtq_gCHvQM0RfYHB2gs6GEegeyM1oAOcY3l-isf5bVWNHpYM-2CTkT0xSmRfoSekJzeawsj9_Npu7qeN5Q3P_5bIx3rQG5xsMqA31gCFdULfOQU8ErzqMXzPy3wAPdg1b9oABDbTWBYfzex45Z-NNCoeB5Y3MU3M38Ix95G5Az8saNmEwgLJmnWYoBNgBHCnreoiS_vj1F5Nt01kXIDhcohzWUb9Oy67F50oaY0AP1oUoxW3YOUWZ__69TbNCG0rvdCe1Bkq1PuaNX9OlGVZj3g5ZX-d9lVeYUS3OhTxVoshP2ViXXcfFuVIVyY4GolMp-Lk7q1On1Lkoh0zXksuCn8VJlMciPx2w6I9lVVXHXuQDLzt25DShNgdjXqaDdbdMe79SLY6VOB0zgx0Zn8aplEP0huXNrmucDsU1c3VMferWm2dHbrQP_gMs6GDSNN5yiyv8sZsSLV7dZipsUwHepwD8YLL9la3O1GMIi08zsGWyvekwrt1B2YnJNp6yP54WZ_8lFZhsE3_PZLuX8FLL_wIAAP__3oG9nA">