1! { dg-do compile } 2! { dg-options "-fcoarray=single" } 3! 4! Test for polymorphic coarrays 5! 6subroutine s2() 7 type t 8 end type t 9 class(t) :: A(:)[4,2:*] ! { dg-error "is not ALLOCATABLE, SAVE nor a dummy argument" } 10 print *, ucobound(a) 11 allocate(a) ! { dg-error "must be ALLOCATABLE or a POINTER" } 12end 13 14