2 ! PR 23321 : Running off the end of a file was not detected with direct I/O.
5 integer(kind=1) :: a, b
9 open (unit=10,status="scratch",recl=1,access="direct")
12 read (10,rec=2, iostat=ios) b
13 if (ios == 0) call abort
15 read (10, rec=82641, iostat=ios) b ! This used to cause a segfault
16 if (ios == 0) call abort
18 read(10, rec=1, iostat=ios) b
19 if (ios /= 0) call abort
20 if (a /= b) call abort