! { dg-do compile }
! { dg-options "" }
!
! Test compile-time errors for DEC I/O intrinsics without -fdec.
!

integer :: fd
open (unit=fd, carriagecontrol='cc') ! { dg-error "is a DEC extension" }
open (unit=fd, share='cc')           ! { dg-error "is a DEC extension" }
open (unit=fd, shared)               ! { dg-error "is a DEC extension" }
open (unit=fd, noshared)             ! { dg-error "is a DEC extension" }
open (unit=fd, readonly)             ! { dg-error "is a DEC extension" }
close (unit=fd, status='delete')

end