blob: 811ef152a5b3418a458518173632783c452486a5 (
plain)
1
2
3
4
5
6
7
8
9
10
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
|