1! { dg-do compile } 2! { dg-options "-fcoarray=single" } 3! 4! PR fortran/18918 5! 6! Before scalar coarrays weren't regarded as scalar in the ME. 7! 8module mod_reduction 9 real :: g[*] 10contains 11 subroutine caf_reduce(x) 12 real, intent(in) :: x 13 g = x ! << used to ICE 14 end 15end module 16 17program test 18 integer, parameter :: size = 4000 19 type :: pct 20 integer, allocatable :: data(:,:) 21 end type 22 type(pct) :: picture[*] 23 allocate(picture%data(size, size)) 24end program test 25