diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-07-01 14:53:44 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-07-01 14:53:44 +0200 |
| commit | 45ea4dfe22c713628a6c054d99df67db0f6ec5dc (patch) | |
| tree | 411ea3ffd2de6e51f6d755920bd0a3e700579a47 /gcc | |
| parent | c21fc18136c7dfe9a87b225a8fab0aac12f0add4 (diff) | |
| download | gcc-45ea4dfe22c713628a6c054d99df67db0f6ec5dc.zip gcc-45ea4dfe22c713628a6c054d99df67db0f6ec5dc.tar.gz gcc-45ea4dfe22c713628a6c054d99df67db0f6ec5dc.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f90 | 15 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0fd31d9..2aae7da 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +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 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 0000000..64b129e --- /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 |