gcc/testsuite/gfortran.dg/iostat_2.f90

   1 ! PR libfortran/23784
   2 ! { dg-do run }
   3   integer i
   4   close(10, status="whatever", iostat=i)
   5   if (i == 0) call abort()
   6   write(17,*) 'foo'
   7   close(17, status="delete")
   8   end