3 ! Test for polymorphic coarrays
7 class(t), allocatable :: A(:)[:,:]
8 allocate (A(2)[1:4,-5:*])
9 if (any (lcobound(A) /= [1, -5])) call abort ()
10 if (num_images() == 1) then
11 if (any (ucobound(A) /= [4, -5])) call abort ()
13 if (ucobound(A,dim=1) /= 4) call abort ()
15 if (allocated(A)) i = 5
22 class(t),allocatable :: x(:)[:,:]
23 if (any (lcobound(x) /= [1, -5])) call abort ()
24 if (num_images() == 1) then
25 if (any (ucobound(x) /= [4, -5])) call abort ()
26 ! FIXME: Tree-walking issue?
28 ! if (ucobound(x,dim=1) /= 4) call abort ()
34 ! class(t),allocatable :: x(:)[:,:]
35 ! if (any (lcobound(x) /= [1, 2])) call abort ()
36 ! if (num_images() == 1) then
37 ! if (any (ucobound(x) /= [4, 2])) call abort ()
39 ! if (ucobound(x,dim=1) /= 4) call abort ()