[gfortran] Fix MINLOC and MAXLOC

[Paul Brook]

Attached patch fixes a couple of bugs in the MINLOC and MAXLOC intrinsics.

Applied to tree-ssa branch.

Paul

2003-10-17  Feng Wang  <wf_cs@yahoo.com>

	* iresolve.c (gfc_resolve_maxloc): Change the result's kind and type.
	(gfc_resolve_minloc): Ditto.
	* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Use correct types.
	Return the value after subtracting the lower bound.
testsuite
	* gfortran.fortran-torture/execute/intrinsics_mmloc_2.f90: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: patch
Type: text/x-diff
Size: 3707 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20031017/24b2ba93/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: intrinsic_mmloc_2.f90
Type: text/x-csrc
Size: 464 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20031017/24b2ba93/attachment-0001.bin>