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