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
15 read (10, rec
=82641, iostat
=ios
) b
! This used to cause a segfault
18 read(10, rec
=1, iostat
=ios
) b