2 ! { dg-options "-fdec" }
4 ! Test compile-time errors for DEC I/O intrinsics with -fdec.
8 open (unit
=fd
, readonly, action
='read') ! these are okay
9 open (unit
=fd
, action
='read', readonly)
10 open (unit
=fd
, readonly, action
='write') ! { dg-error "ACTION type conflicts" }
11 open (unit
=fd
, action
='readwrite', readonly) ! { dg-error "ACTION type conflicts" }
12 open (unit
=fd
, shared, shared) ! { dg-error "Duplicate SHARE" }
13 open (unit
=fd
, noshared
, shared) ! { dg-error "Duplicate SHARE" }
14 open (unit
=fd
, share
='denyrw', share
='denynone') ! { dg-error "Duplicate SHARE" }
15 open (unit
=fd
, carriagecontrol
='fortran', carriagecontrol
='none') ! { dg-error "Duplicate CARRIAGECONTROL" }