re PR fortran/32298 (MINLOC / MAXLOC: off-by one for PARAMETER arrays)
authorPaul Thomas <pault@gcc.gnu.org>
Sun, 24 Jun 2007 11:04:02 +0000 (11:04 +0000)
committerPaul Thomas <pault@gcc.gnu.org>
Sun, 24 Jun 2007 11:04:02 +0000 (11:04 +0000)
commitf0b3c58d8be622e7305c7d503a5d81b96b1db621
tree16520c1ec2271712b293e5a3adfbf883bb1af809
parentdbb233964c4801a60b3a17c5213317efff9f93d6
re PR fortran/32298 (MINLOC / MAXLOC: off-by one for PARAMETER arrays)

2007-06-24  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/32298
PR fortran/31726
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Calculate
the offset between the loop counter and the position as
defined. Add the offset within the loop so that the mask acts
correctly.  Do not advance the location on the basis that it
is zero.

2007-06-24  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/31726
* gfortran.dg/minmaxloc_1.f90: New test.

PR fortran/32298
* gfortran.dg/minmaxloc_2.f90: New test.

From-SVN: r125983
gcc/fortran/ChangeLog
gcc/fortran/trans-intrinsic.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/minmaxloc_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/minmaxloc_2.f90 [new file with mode: 0644]