2 ! { dg-options "-fcoarray=single" }
5 ! Coarray subobjects were not accepted as valid coarrays
6 ! They should still be rejected if one of the component reference is allocatable
13 type(t
), allocatable
:: a
21 if (b
%a
%i
/= 7) STOP 1
22 if (any (lcobound(b
%a
) /= (/ 5 /))) STOP 2! { dg-error "Expected coarray variable" }
23 if (ucobound(b
%a
, dim
=1) /= this_image() + 4) STOP 3! { dg-error "Expected coarray variable" }
24 if (any (lcobound(b
%a
%i
) /= (/ 5 /))) STOP 4! { dg-error "Expected coarray variable" }
25 if (ucobound(b
%a
%i
, dim
=1) /= this_image() + 4) STOP 5! { dg-error "Expected coarray variable" }
26 if (b
%c
%i
/= 13) STOP 6
27 if (any (lcobound(b
%c
) /= (/ 5 /))) STOP 7! { dg-error "Expected coarray variable" }
28 if (ucobound(b
%c
, dim
=1) /= this_image() + 4) STOP 8! { dg-error "Expected coarray variable" }
29 if (any (lcobound(b
%c
%i
) /= (/ 5 /))) STOP 9! { dg-error "Expected coarray variable" }
30 if (ucobound(b
%c
%i
, dim
=1) /= this_image() + 4) STOP 10! { dg-error "Expected coarray variable" }