[flang] Runtime error with DC editor : Part 2

[DanielCChen]

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)

[llvmbot]

@llvm/issue-subscribers-flang-runtime

Author: Daniel Chen (DanielCChen)

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)

</details>