OSDN Git Service

2007-06-24 Paul Thomas <pault@gcc.gnu.org>
authorpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 24 Jun 2007 11:04:02 +0000 (11:04 +0000)
committerpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 24 Jun 2007 11:04:02 +0000 (11:04 +0000)
commit30dc020ce6caf2e3bdfecfacca44670e3dba7f7f
tree16520c1ec2271712b293e5a3adfbf883bb1af809
parentb3cbca45ac5cc5588a4c1d4961d067d9a041b2a9
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125983 138bc75d-0d04-0410-961f-82ee72b054a4
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]