From 45ea4dfe22c713628a6c054d99df67db0f6ec5dc Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Thu, 1 Jul 2010 14:53:44 +0200 Subject: [PATCH] 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 | 5 +++++ .../gfortran.fortran-torture/compile/pr40421.f90 | 15 +++++++++++++++ 2 files changed, 20 insertions(+) create mode 100644 gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0fd31d9bc60..2aae7daaa0f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-07-01 Jakub Jelinek + + PR tree-optimization/40421 + * gfortran.fortran-torture/compile/pr40421.f90: New test. + 2010-07-01 Richard Guenther PR middle-end/42834 diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f90 new file mode 100644 index 00000000000..64b129efc3c --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f90 @@ -0,0 +1,15 @@ +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