gcc/testsuite/gfortran.dg/open_status_1.f90

   1 ! { dg-do run }
   2 ! Test reopening with io status='old'
   3 program iostatus
   4   open (1, file='foo', status='replace') ! Make sure file exists.
   5   open (1, file='foo', status='old')
   6   open (1, file='foo', status='old')
   7   close (1, status='delete')
   8 end program iostatus