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

    <tr>
        <th>Summary</th>
        <td>
            [flang] I/O Runtime failure with DC editor.
        </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
    real(8) :: r1(10)

    open (1, form='formatted', status='scratch', access='stream')

    write (1, 300) (sin(j*1.0), j=1, 10)

    rewind 1

    read (1, '(dc, 10f15.3)') r1

 close(1)

300 format (DC, 1x, 10(f10.3, ";"))

end
```

Flang failed at runtime as:
```
> a.out

fatal Fortran runtime error(t.f:10): Bad real input data at column 13 of record 1
IOT/Abort trap(coredump)
```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJxkk8FuhDYQhp9muIyC7PGywIEDWYqUU6SqL2CwWRwZvLJNtn37ykDSKJUQII-_f37_I8sQzH3VuoHiFYouk1ucnW86uRptb7dZr9ng1D_Nza3BKO0xzhonZ617mvWOo1MaRAushSs7H9Y-vLt7ueAizQqsRUT0WlqgqgKqMQGiRc-BKs6A6oQf29xDr5iWgW44Ob-A6IDK9Cdj1AqoTJUQZdzCUQujl3Gcz4ocRx2-KtFrueyFHy2e3kT93UMwtluiKpgVqPoAanm-m6IbfoDo9m2_bHr9NKtC_nNFqm_RvWWlxoOceJGLXTAZScc-qNG6oA_klBaM4XHUJNXddv7vr_7VxFkSSvoE4jW9k-oJ61X9GgOwtrdyveMkjdUKZUS_rdEsGmX4_9RA_IEyd1s80ElGabF3Pnq5foPae-eBqphPINojFtHiq1T7iNGsjy2iklGmdqOz27IiF-gm9Hp0_gjt7f0voL4dnI8YvXwAVaPzWm3L4zzPl69MNULVopaZbnhZCF7Xl6rO5kbRdeJXJTkpNlZ1eal4KZkqRhoGzgudmYYYFawk4kXBqc6rWgpOeqyvwzAMsoQL04s0Nrf2c8mdv2cmhE03vGDsUmZWDtqG_V4QTSlHEO0ZQ4q-6DLfJPRl2O4BLsyaEMN_YtFEu1-rgy06fAPq3_HPM8k0lM1rfJo4Y3dDrUx0Ps82b5s5xsc-IeqB-ruJ8zbko1uA-qR_fl4e3n3oMQL1u_MA1J_mPxv6NwAA__-Vsxit">