1! { dg-do run }
2! pr31366 last record truncated for read after short write, direct access file.
3! test case derived from pr, submitted by jerry delisle  <jvdelisle@gcc.gnu.org
4      program test
5      character(len=8) :: as_written, as_read
6      character(1) :: byte
7      as_written = "12345678"
8      open (76, access="direct", recl=12, status="scratch")
9      write(76, rec=1) as_written
10      write(76, rec=2) as_written
11      read(76, rec=1) as_read, byte, byte, byte, byte
12      read(76, rec=2, err=3) as_read, byte, byte, byte, byte
13      stop
14  3   STOP 1
15      end program test
16
17