! { dg-do run }! PR 30056 - exceeding the record length was misrepresented as an EOF! on read and ignored on write program maininteger i,jopen(10,form="unformatted",access="direct",recl=4)write(10,rec=1,err=10)1,2call abort()10continue read(10,rec=1,err=20)i,jcall abort()20continue end