re PR libfortran/30415 (MINLOC, MAXLOC missing for integer kinds 1 and 2)
authorThomas Koenig <Thomas.Koenig@online.de>
Thu, 11 Jan 2007 20:32:42 +0000 (20:32 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 11 Jan 2007 20:32:42 +0000 (20:32 +0000)
commit90d715b0a524cb1dc534f470bc552915bb41663c
treedd3320fb0f0e8dd37c2f392a040157b60b01bd81
parent583cb3d38f9c3a1b93938dd851e48af24827626d
re PR libfortran/30415 (MINLOC, MAXLOC missing for integer kinds 1 and 2)

2007-01-11  Thomas Koenig  <Thomas.Koenig@online.de>

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-11  Thomas Koenig  <Thomas.Koenig@online.de>

PR libfortran/30415
* minmaxloc_integer_kinds_1.f90:  New test.

From-SVN: r120685
gcc/fortran/ChangeLog
gcc/fortran/iresolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/minmaxloc_integer_kinds_1.f90 [new file with mode: 0644]