blob: 9c0e807a569c9b944c9f2514634bf9e21e11313c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|