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. "Short record on unformatted read") 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")