2 ! { dg-options "-Warray-temporaries -O -fdump-tree-original" }
5 ! Scalarization of reductions.
6 ! Test that product is properly inlined.
8 ! For more extended tests, see inline_sum_1.f90
15 integer, parameter :: q
= 2
16 integer, parameter :: nx
=3, ny
=2*q
, nz
=5
17 integer, parameter, dimension(nx
,ny
,nz
) :: p
= &
18 & reshape ((/ (i
, i
=1,size(p
)) /), shape(p
))
21 integer, dimension(nx
,ny
,nz
) :: a
22 integer, dimension(nx
, nz
) :: ay
29 ! { dg-final { scan-tree-dump-times "struct array._integer\\(kind=4\\) atmp" 0 "original" } }
30 ! { dg-final { scan-tree-dump-times "struct array\[^\\n\]*atmp" 0 "original" } }
31 ! { dg-final { scan-tree-dump-times "_gfortran_product_" 0 "original" } }
32 ! { dg-final { cleanup-tree-dump "original" } }