gcc/testsuite/gfortran.dg/dec_io_5.f90

   1 ! { dg-do run "xfail *-*-*" }
   2 ! { dg-options "-fdec" }
   3 !
   4 ! Test that we get a run-time error for opening a READONLY file with
   5 ! ACTION='WRITE'.
   6 !
   7
   8 implicit none
   9
  10 integer :: fd = 8
  11 character(*), parameter :: f = "test.txt"
  12 character(10), volatile :: c
  13 c = 'write'
  14
  15 open(unit=fd,file=f,action=c,readonly) ! XFAIL "ACTION conflicts with READONLY"
  16
  17 end