lto: Remove random_seed from section name.

[official-gcc.git] / 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
close(99, status="delete")
if (ios /= 0) STOP 1
end