| Issue |
150047
|
| Summary |
[flang] I/O Runtime failure with DC editor.
|
| Labels |
flang:runtime
|
| Assignees |
|
| Reporter |
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)
```
![]()
_______________________________________________
llvm-bugs mailing list
llvm-bugs@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
