1! { dg-do run }
2! PR 30056 - exceeding the record length was misrepresented as an EOF
3!            on read and ignored on write
4      program main
5      integer i,j
6      open (10, form="unformatted", access="direct", recl=4)
7      write (10, rec=1, err=10) 1,2
8      call abort()
9 10   continue
10      read (10,  rec=1, err=20) i, j
11      call abort()
12 20   continue
13      close (10, status="delete")
14      end
15