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