4 ! Test compile-time errors for DEC I/O intrinsics without -fdec.
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')