blob: 9c0e807a569c9b944c9f2514634bf9e21e11313c [file] [log] [blame]
! { 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
close(99, status="delete")
if (ios /= 0) STOP 1
end