gcc/testsuite/gfortran.dg/pr92897.f90


1
2
3
4
5
6
7
8

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