Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 32 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/inline_product_1.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/inline_product_1.f90
new file mode 100644
index 000000000..72c096bff
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/inline_product_1.f90
@@ -0,0 +1,32 @@
+! { dg-do compile }
+! { dg-options "-Warray-temporaries -O -fdump-tree-original" }
+!
+! PR fortran/43829
+! Scalarization of reductions.
+! Test that product is properly inlined.
+
+! For more extended tests, see inline_sum_1.f90
+
+  implicit none
+
+
+  integer :: i
+
+  integer, parameter :: q = 2
+  integer, parameter :: nx=3, ny=2*q, nz=5
+  integer, parameter, dimension(nx,ny,nz) :: p  = &
+        & reshape ((/ (i, i=1,size(p)) /), shape(p))
+
+
+  integer, dimension(nx,ny,nz) :: a
+  integer, dimension(nx,   nz) :: ay
+
+  a  = p
+
+  ay = product(a,2)
+
+end
+! { dg-final { scan-tree-dump-times "struct array._integer\\(kind=4\\) atmp" 0 "original" } }
+! { dg-final { scan-tree-dump-times "struct array\[^\\n\]*atmp" 0 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_product_" 0 "original" } }
+! { dg-final { cleanup-tree-dump "original" } }