re PR fortran/58324 (Bogus END-of-line error with list-directed I/O of file without trailing sequential record marker)
2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu> PR libfortran/58324 * gfortran.dg/list_read_12.f90: New test. From-SVN: r208592
This commit is contained in:
parent
e94710443a
commit
f1182dd22b
|
@ -1,3 +1,8 @@
|
||||||
|
2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu>
|
||||||
|
|
||||||
|
PR libfortran/58324
|
||||||
|
* gfortran.dg/list_read_12.f90: New test.
|
||||||
|
|
||||||
2014-03-15 Janus Weil <janus@gcc.gnu.org>
|
2014-03-15 Janus Weil <janus@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/55207
|
PR fortran/55207
|
||||||
|
|
|
@ -0,0 +1,11 @@
|
||||||
|
! { dg-do run }
|
||||||
|
! PR58324 Bogus end of file condition
|
||||||
|
integer :: i, ios
|
||||||
|
open(99, access='stream', form='unformatted')
|
||||||
|
write(99) "5 a"
|
||||||
|
close(99)
|
||||||
|
|
||||||
|
open(99, access='sequential', form='formatted')
|
||||||
|
read(99, *, iostat=ios) i
|
||||||
|
if (ios /= 0) call abort
|
||||||
|
end
|
Loading…
Reference in New Issue