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) call abort
22 if (any (lcobound(b
%a
) /= (/ 5 /))) call abort
! { dg-error "Expected coarray variable" }
23 if (ucobound(b
%a
, dim
=1) /= this_image() + 4) call abort
! { dg-error "Expected coarray variable" }
24 if (any (lcobound(b
%a
%i
) /= (/ 5 /))) call abort
! { dg-error "Expected coarray variable" }
25 if (ucobound(b
%a
%i
, dim
=1) /= this_image() + 4) call abort
! { dg-error "Expected coarray variable" }
26 if (b
%c
%i
/= 13) call abort
27 if (any (lcobound(b
%c
) /= (/ 5 /))) call abort
! { dg-error "Expected coarray variable" }
28 if (ucobound(b
%c
, dim
=1) /= this_image() + 4) call abort
! { dg-error "Expected coarray variable" }
29 if (any (lcobound(b
%c
%i
) /= (/ 5 /))) call abort
! { dg-error "Expected coarray variable" }
30 if (ucobound(b
%c
%i
, dim
=1) /= this_image() + 4) call abort
! { dg-error "Expected coarray variable" }