2 ! { dg-options "-fcoarray=lib -lcaf_single" }
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
7 integer, allocatable
:: vec(:)[:,:]
9 allocate(vec(10)[2,*], source
= 37)
11 if (.not
. allocated(vec
)) error
stop
15 if (any(vec
/= 42)) error
stop
22 integer, allocatable
, intent(inout
) :: gv(:)[:,:]
23 integer, allocatable
:: gvin(:)
25 allocate(gvin
, mold
=gv
)
30 end program coarray_41