------- Comment #4 from tkoenig at gcc dot gnu dot org 2007-01-18 21:57 ------- Subject: Bug 30415
Author: tkoenig Date: Thu Jan 18 21:56:53 2007 New Revision: 120932 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=120932 Log: 2007-01-18 Thomas Koenig <[EMAIL PROTECTED]> Backport from trunk PR libfortran/30415 * iresolve.c (gfc_resolve_maxloc): If the rank of the return array is nonzero and we process an integer array smaller than default kind, coerce the array to default integer. * iresolve.c (gfc_resolve_minloc): Likewise. 2007-01-18 Thomas Koenig <[EMAIL PROTECTED]> Backport from trunk PR libfortran/30415 * minmaxloc_integer_kinds_1.f90: New test. Added: branches/gcc-4_2-branch/gcc/testsuite/gfortran.dg/minmaxloc_integer_kinds_1.f90 Modified: branches/gcc-4_2-branch/gcc/fortran/ChangeLog branches/gcc-4_2-branch/gcc/fortran/iresolve.c branches/gcc-4_2-branch/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30415