--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/dec_io_3.f90	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,15 @@
+! { 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