| commit | 708069f0b3f596e28f53000712163c820fb3101c | |
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Thu, 11 Jan 2007 20:32:42 +0000 (11 20:32 +0000) | ||
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Thu, 11 Jan 2007 20:32:42 +0000 (11 20:32 +0000) | ||
| tree | dd3320fb0f0e8dd37c2f392a040157b60b01bd81 | treesnapshot (tar.gz zip) |
| parent | 886a341f3ff7c1a2dec9207e1a68d1ea18e50e73 | commitdiff |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120685 138bc75d-0d04-0410-961f-82ee72b054a4
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120685 138bc75d-0d04-0410-961f-82ee72b054a4