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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Runtime error with DC editor : Part 2
        </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>
    The following code still fails after PR #150512
```
program main
 logical(4) :: l1(100)

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

    write (1, 500)

    rewind 1

    read (1, '(dc, 100l5)') l1

    close(1)

500 format (DC, 1x, 50('.T;F.;'))

end
```

```
> a.out

fatal Fortran runtime error(t.f:10): Bad character ';' in LOGICAL input field
IOT/Abort trap(coredump)
```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJxcU--KpDgQf5ryS7FNLDutfvCD030eCwu7LPMCZYyaI5omidN3b3_EdmaHAcFYP39_qiw5BDOtWjcgX0DeMt7i7Hxz49Voe73Oes16N_zXvM4aR2ete5h1QuUGjSEaa3FkYwPyGLXHX78RqMilkDmBaOEijku0d-8mzwsubFYQLVo3GcUWqDoD1QhFC0WLNgeqciGA6sQXLSKiu-sVUx3oiqPzCxQ3oDKdOEY9AJUJCZHjFp5YUJ6jmg-EldLhHYle87IDnywe3kT94SG_BPD6YdYB888VHj5e38WqQaVzLoSVibwbpH4-OMq6oJ-cQ1sKgc8uktbtugv8-0wAVAGVp1coXroTFC9H4neqXocvA_76WPyFfHJbfEIjR7bYOR89r-i3NZpFo_beeaAqnkYo2nzvumjxhQdUM3tW6aMm590fzYo_fv79_dr-QLPet4ij0Tbl-P7zFahre-cjRs93oEo5r4dtuR-J35NlQ1MMdVFzppu8lEUlzjVV2dxUI8tLyfml1uKiL0Wfl1XBvVRKDGIcRGYaEiRFSXV-ESSqE58V6UrWSg-9ZElwFnphY0_Wvi0n56fMhLDpJpd5XlaZ5V7bsK850Wh5naBoj0EAUdp93yTqt36bApyFNSGGP2LRRLv_JU-uvOHvz1PEh4kz3q6oBxOdTwuNv9hHpGzztpljvIe05NQBdZOJ89aflFuAuuRw3L7dvftHqwjU7dkDUHfEf2vo_wAAAP__-Y0LhA">