From 57371d2eb236b62d5dec3c9dd2ea925fc9c0e1fc Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 29 Sep 2007 09:57:37 +0200 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/minmaxloc_4.f90 | 21 +++++++++++++++++++++ 2 files changed, 26 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/minmaxloc_4.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 99aade6824a..a44cf45a65f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-09-28 Tobias Schlüter + + PR fortran/33354 + * gfortran.dg/minmaxloc_4.f90: New. + 2007-09-28 John David Anglin * 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 00000000000..2ea2e7b86ab --- /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 -- 2.30.2