1! { dg-do run }
2! PR58324 Bogus end of file condition
3integer :: i, ios
4open(99, access='stream', form='unformatted')
5write(99) "5 a"
6close(99)
7
8open(99, access='sequential', form='formatted')
9read(99, *, iostat=ios) i
10close(99, status="delete")
11if (ios /= 0) call abort
12end
13