re PR tree-optimization/40421 (Revision 148352 failed 416.gamess in SPEC CPU 2006)

	PR tree-optimization/40421
	* gfortran.fortran-torture/compile/pr40421.f90: New test.

From-SVN: r161669

gcc/testsuite/ChangeLog

+2010-07-01  Jakub Jelinek  <jakub@redhat.com>
+
+	PR tree-optimization/40421
+	* gfortran.fortran-torture/compile/pr40421.f90: New test.
+
 2010-07-01  Richard Guenther  <rguenther@suse.de>
 
 	PR middle-end/42834

gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f90

+subroutine pr40421 (j, q, r)
+  double precision :: q(1,1), r(1,1,3)
+  save
+  integer :: i, j, m, n
+  double precision :: s, t, u
+  do i=1,2
+    do m=1,j
+      do n=1,1
+        s=q(n,m)*r(n,m,1)
+        t=q(n,m)*r(n,m,2)
+        u=q(n,m)*r(n,m,3)
+      end do
+    end do
+  end do
+end