2 ! { dg-options "-fcoarray=single" }
6 ! Before scalar coarrays weren't regarded as scalar in the ME.
11 subroutine caf_reduce(x
)
13 g
= x
! << used to ICE
18 integer, parameter :: size
= 4000
20 integer, allocatable
:: data(:,:)
22 type(pct
) :: picture
[*]
23 allocate(picture
%data(size
, size
))
27 ! { dg-final { cleanup-modules "mod_reduction" } }