gcc/testsuite/gfortran.dg/dec_io_6.f90

   1 ! { dg-do run "xfail *-*-*" }
   2 ! { dg-options "-fdec" }
   3 !
   4 ! Test that we get a run-time error for close-on-delete with READONLY.
   5 !
   6
   7 implicit none
   8
   9 integer :: fd = 8
  10 character(*), parameter :: f = "test.txt"
  11
  12 open(unit=fd,file=f,action='read',readonly)
  13 close(unit=fd,status='delete') ! XFAIL "protected by READONLY"
  14
  15 end