! { dg-do run } | |
! PR40714 A read hitting EOF should leave the unit structure in a correct state | |
program test | |
open(unit=32,status="scratch",access="sequential",form="unformatted") | |
read(32,end=100) | |
100 continue | |
backspace(32) | |
write (32) | |
end program test |