[flang] I/O Runtime failure with DC editor.

[DanielCChen]

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)

[llvmbot]

@llvm/issue-subscribers-flang-runtime

Author: Daniel Chen (DanielCChen)

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)

</details>

[eugeneepshteyn]

Data written out by the write statement:

      0,841;     0,909;     0,141;    -0,757;    -0,959;    -0,279;     0,657;     0,989;     0,412;    -0,544;