libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gfortran.dg / eof_3.f90
blobf1d5098c77b568494c597d696072611250d503c3
1 ! { dg-do run }
2 ! PR40714 A read hitting EOF should leave the unit structure in a correct state
3 program test
4 open(unit=32,status="scratch",access="sequential",form="unformatted")
5 read(32,end=100)
6 100 continue
7 backspace(32)
8 write (32)
9 end program test