2 ! { dg-options "-fcoarray=single" }
3 ! Test contributed by Gerhard Steinmetz
4 type(t) function f() ! { dg-error "has not been declared" }
5 dimension :: t(1,2,1,2,1,2,1,2)
6 codimension :: t[1,2,1,2,1,2,1,*] ! { dg-error "rank \\+ corank of" }
8 ! { dg-prune-output "which has not been defined" }