3 ! Check that the bounds of polymorphic coarrays is
8 class(t
), allocatable
:: a(:)[:]
9 class(t
), allocatable
:: b
[:], d
[:]
12 if (this_image() == 1 .and
. any (this_image(a
) /= lcobound(a
))) &
14 if (any (lcobound(a
) /= 1)) call abort()
15 if (any (ucobound(a
) /= this_image())) call abort ()
19 if (this_image() == 1 .and
. any (this_image(b
) /= lcobound(b
))) &
21 if (any (lcobound(b
) /= 1)) call abort()
22 if (any (ucobound(b
) /= this_image())) call abort ()
26 if (this_image() == 1 .and
. any (this_image(a
) /= lcobound(a
))) &
28 if (any (lcobound(a
) /= -10)) call abort()
29 if (any (ucobound(a
) /= -11+this_image())) call abort ()
33 if (this_image() == 1 .and
. any (this_image(d
) /= lcobound(d
))) &
35 if (any (lcobound(d
) /= 23)) call abort()
36 if (any (ucobound(d
) /= 22+this_image())) call abort ()