diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2007-09-29 09:57:37 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2007-09-29 09:57:37 +0200 |
| commit | 57371d2eb236b62d5dec3c9dd2ea925fc9c0e1fc (patch) | |
| tree | 98ff5c037d2d9e4976fa28d7cfdf3ccb55d03587 /gcc | |
| parent | 6dcee2d6ca1ef0f5868640c4880c80d53dffb5c3 (diff) | |
| download | gcc-57371d2eb236b62d5dec3c9dd2ea925fc9c0e1fc.zip gcc-57371d2eb236b62d5dec3c9dd2ea925fc9c0e1fc.tar.gz gcc-57371d2eb236b62d5dec3c9dd2ea925fc9c0e1fc.tar.bz2 | |
re PR fortran/33354 ([4.2 only] MINLOC in combination with SUM gives wrong result)
PR fortran/33354
* gfortran.dg/minmaxloc_4.f90: New.
From-SVN: r128882
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/minmaxloc_4.f90 | 21 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 99aade6..a44cf45 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-09-28 Tobias Schlüter <tobi@gcc.gnu.org> + + PR fortran/33354 + * gfortran.dg/minmaxloc_4.f90: New. + 2007-09-28 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> * gcc.dg/fold-bitand-4.c: Add -fno-common to options on hppa*-*-hpux*. diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_4.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_4.f90 new file mode 100644 index 0000000..2ea2e7b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/minmaxloc_4.f90 @@ -0,0 +1,21 @@ +! { dg-do run } +! Test to make sure that PR 33354 remains fixed and doesn't regress +PROGRAM TST + IMPLICIT NONE + REAL :: A(1,3) + REAL :: B(3,1) + A(:,1) = 10 + A(:,2) = 20 + A(:,3) = 30 + + !WRITE(*,*) SUM(A(:,1:3),1) + !WRITE(*,*) MINLOC(SUM(A(:,1:3),1),1) + if (minloc(sum(a(:,1:3),1),1) .ne. 1) call abort() + if (maxloc(sum(a(:,1:3),1),1) .ne. 3) call abort() + + B(1,:) = 10 + B(2,:) = 20 + B(3,:) = 30 + if (minloc(sum(b(1:3,:),2),2) .ne. 1) call abort() + if (maxloc(sum(b(1:3,:),2),2) .ne. 3) call abort() +END PROGRAM TST |