2 ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" }
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
8 integer,allocatable
:: endsi(:)
10 type(Domain
),allocatable
:: D
[:,:,:]
13 allocate(D
%endsi(2), source
= 0)
14 ! Lhs may be reallocate, so caf_send_by_ref needs to be used.
16 if (any(D
%endsi
/= [ 64, 64])) error
stop
20 ! { dg-final { scan-tree-dump-times "caf_send_by_ref" 1 "original" } }