Merge branches/gcc-4_8-branch rev 208968.

[official-gcc.git] / gcc-4_8-branch / gcc / testsuite / gfortran.dg / list_read_12.f90

! { 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