blob: d37961c735a10baabadb6d29d4830d15814b2399 [file] [log] [blame]
! { 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