[C++ PATCH] Deprecate -ffriend-injection
[official-gcc.git] / gcc / testsuite / gfortran.dg / read_eof_6.f
blobd4077481bda81950fe9b413765bf87b7e1110afc
1 ! { dg-do run }
2 ! PR43320 Missing EOF on read from empty file.
3 open(8,status='scratch',form='formatted') ! Create empty file
4 read(8,'(a80)', end=123) ! Reading from an empty file should be an EOF
5 call abort
6 123 continue
7 end