gcc/testsuite/gfortran.dg/dec_io_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "" }
   3 !
   4 ! Test compile-time errors for DEC I/O intrinsics without -fdec.
   5 !
   6
   7 integer :: fd
   8 open (unit=fd, carriagecontrol='cc') ! { dg-error "is a DEC extension" }
   9 open (unit=fd, share='cc')           ! { dg-error "is a DEC extension" }
  10 open (unit=fd, shared)               ! { dg-error "is a DEC extension" }
  11 open (unit=fd, noshared)             ! { dg-error "is a DEC extension" }
  12 open (unit=fd, readonly)             ! { dg-error "is a DEC extension" }
  13 close (unit=fd, status='delete')
  14
  15 end