From 8811602900dc173f02161c177975be6cc4c60577 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 9 Feb 2007 22:56:06 +0100 Subject: re PR fortran/30512 ([4.1 only] MAXVAL() incorrect for zero-size int arrays, and for -HUGE-1 maximum values.) fortran/ 2007-02-09 Tobias Burnus PR fortran/30512 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_minmaxval): Use HUGE-1 for most negative integer. testsuite/ 2007-02-09 Tobias Burnus PR fortran/30512 * gfortran.dg/maxlocval_1.f90: New test. libgfortran/ 2007-02-09 Thomas Koenig Tobias Burnus PR fortran/30512 * m4/iparm.m4: Use HUGE-1 for most negative integer. * generated/maxloc1_8_i4.c: Regenerate. * generated/maxloc0_8_i8.c: Regenerate. * generated/maxloc1_16_i4.c: Regenerate. * generated/maxloc0_16_i8.c: Regenerate. * generated/maxval_i4.c: Regenerate. * generated/maxloc1_4_i8.c: Regenerate. * generated/maxloc0_16_i16.c: Regenerate. * generated/maxloc1_4_i16.c: Regenerate. * generated/maxloc0_8_i16.c: Regenerate. * generated/maxloc0_4_i4.c: Regenerate. * generated/maxloc1_8_i8.c: Regenerate. * generated/maxloc0_8_i4.c: Regenerate. * generated/maxloc0_16_i4.c: Regenerate. * generated/maxloc1_16_i8.c: Regenerate. * generated/maxloc1_4_i4.c: Regenerate. * generated/maxval_i8.c: Regenerate. * generated/maxloc0_4_i16.c: Regenerate. * generated/maxloc1_8_i16.c: Regenerate. * generated/maxloc0_4_i8.c: Regenerate. * generated/maxloc1_16_i16.c: Regenerate. * generated/maxval_i16.c: Regenerate. From-SVN: r121777 --- libgfortran/generated/maxval_i4.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'libgfortran/generated/maxval_i4.c') diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index ba5b310..7b01617 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -138,9 +138,9 @@ maxval_i4 (gfc_array_i4 * const restrict retarray, src = base; { - result = -GFC_INTEGER_4_HUGE; + result = (-GFC_INTEGER_4_HUGE-1); if (len <= 0) - *dest = -GFC_INTEGER_4_HUGE; + *dest = (-GFC_INTEGER_4_HUGE-1); else { for (n = 0; n < len; n++, src += delta) @@ -308,9 +308,9 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray, msrc = mbase; { - result = -GFC_INTEGER_4_HUGE; + result = (-GFC_INTEGER_4_HUGE-1); if (len <= 0) - *dest = -GFC_INTEGER_4_HUGE; + *dest = (-GFC_INTEGER_4_HUGE-1); else { for (n = 0; n < len; n++, src += delta, msrc += mdelta) @@ -404,7 +404,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray, dest = retarray->data; for (n = 0; n < rank; n++) - dest[n * dstride] = -GFC_INTEGER_4_HUGE ; + dest[n * dstride] = (-GFC_INTEGER_4_HUGE-1) ; } #endif -- cgit v1.1