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" } }