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