1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3! Test contributed by Gerhard Steinmetz
4type(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" }
7end
8! { dg-prune-output "which has not been defined" }
9