diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-09 21:56:06 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-09 21:56:06 +0000 |
| commit | 1706268daa5b350d6ef37b9a79d28f4ff6ae1436 (patch) | |
| tree | 8c9f83d0bcfb910fd85a30861f1369cd3b9b22fa /libgfortran/generated/maxval_i8.c | |
| parent | b42677561fa288b2cbd6ad4568f9f4f18a239ae4 (diff) | |
| download | gcc-1706268daa5b350d6ef37b9a79d28f4ff6ae1436.tar.gz | |
fortran/
2007-02-09 Tobias Burnus <burnus@net-b.de>
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 <burnus@net-b.de>
PR fortran/30512
* gfortran.dg/maxlocval_1.f90: New test.
libgfortran/
2007-02-09 Thomas Koenig <Thomas.Koenig@online.de>
Tobias Burnus <burnus@net-b.de>
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121777 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/maxval_i8.c')
| -rw-r--r-- | libgfortran/generated/maxval_i8.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index ee6a5d2d87c..cb83c5a1e6a 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -138,9 +138,9 @@ maxval_i8 (gfc_array_i8 * const restrict retarray, src = base; { - result = -GFC_INTEGER_8_HUGE; + result = (-GFC_INTEGER_8_HUGE-1); if (len <= 0) - *dest = -GFC_INTEGER_8_HUGE; + *dest = (-GFC_INTEGER_8_HUGE-1); else { for (n = 0; n < len; n++, src += delta) @@ -308,9 +308,9 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray, msrc = mbase; { - result = -GFC_INTEGER_8_HUGE; + result = (-GFC_INTEGER_8_HUGE-1); if (len <= 0) - *dest = -GFC_INTEGER_8_HUGE; + *dest = (-GFC_INTEGER_8_HUGE-1); else { for (n = 0; n < len; n++, src += delta, msrc += mdelta) @@ -404,7 +404,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray, dest = retarray->data; for (n = 0; n < rank; n++) - dest[n * dstride] = -GFC_INTEGER_8_HUGE ; + dest[n * dstride] = (-GFC_INTEGER_8_HUGE-1) ; } #endif |