1 ! { dg-do run { target fd_truncate } }
2 ! PR 29627 - partial reads of unformatted records
6 open(10, form
="unformatted", status
="unknown")
11 read (10, err
=20, iomsg
=msg
) a
14 if (msg
.ne
. "I/O past end of record on unformatted file") call abort
15 if (a(1) .ne
. 'a' .or
. a(2) .ne
. 'b' .or
. a(3) .ne
. 'b') call abort
16 close (10, status
="delete")