diff options
Diffstat (limited to 'libgfortran/generated/maxval_i4.c')
| -rw-r--r-- | libgfortran/generated/maxval_i4.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index ba5b3106841..7b01617edd1 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 |