diff options
Diffstat (limited to 'libgfortran/generated')
35 files changed, 90 insertions, 90 deletions
diff --git a/libgfortran/generated/maxloc0_16_m1.c b/libgfortran/generated/maxloc0_16_m1.c index d13ebbf..2a47b9e 100644 --- a/libgfortran/generated/maxloc0_16_m1.c +++ b/libgfortran/generated/maxloc0_16_m1.c @@ -96,7 +96,7 @@ maxloc0_16_m1 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m1 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m16.c b/libgfortran/generated/maxloc0_16_m16.c index 00cb09b..1003fdb 100644 --- a/libgfortran/generated/maxloc0_16_m16.c +++ b/libgfortran/generated/maxloc0_16_m16.c @@ -96,7 +96,7 @@ maxloc0_16_m16 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m16 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m2.c b/libgfortran/generated/maxloc0_16_m2.c index 3244952..49b92f7 100644 --- a/libgfortran/generated/maxloc0_16_m2.c +++ b/libgfortran/generated/maxloc0_16_m2.c @@ -96,7 +96,7 @@ maxloc0_16_m2 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m2 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m4.c b/libgfortran/generated/maxloc0_16_m4.c index 3cda598d..0144125 100644 --- a/libgfortran/generated/maxloc0_16_m4.c +++ b/libgfortran/generated/maxloc0_16_m4.c @@ -96,7 +96,7 @@ maxloc0_16_m4 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m4 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m8.c b/libgfortran/generated/maxloc0_16_m8.c index f98485d..96d6295 100644 --- a/libgfortran/generated/maxloc0_16_m8.c +++ b/libgfortran/generated/maxloc0_16_m8.c @@ -96,7 +96,7 @@ maxloc0_16_m8 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m8 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m1.c b/libgfortran/generated/maxloc0_4_m1.c index 7ae89c1..7825952 100644 --- a/libgfortran/generated/maxloc0_4_m1.c +++ b/libgfortran/generated/maxloc0_4_m1.c @@ -96,7 +96,7 @@ maxloc0_4_m1 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m1 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m16.c b/libgfortran/generated/maxloc0_4_m16.c index 8d62e04..4e90c49 100644 --- a/libgfortran/generated/maxloc0_4_m16.c +++ b/libgfortran/generated/maxloc0_4_m16.c @@ -96,7 +96,7 @@ maxloc0_4_m16 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m16 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m2.c b/libgfortran/generated/maxloc0_4_m2.c index c8cf68b..b6b530b 100644 --- a/libgfortran/generated/maxloc0_4_m2.c +++ b/libgfortran/generated/maxloc0_4_m2.c @@ -96,7 +96,7 @@ maxloc0_4_m2 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m2 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m4.c b/libgfortran/generated/maxloc0_4_m4.c index 3f5f550..b3ee5af 100644 --- a/libgfortran/generated/maxloc0_4_m4.c +++ b/libgfortran/generated/maxloc0_4_m4.c @@ -96,7 +96,7 @@ maxloc0_4_m4 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m4 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m8.c b/libgfortran/generated/maxloc0_4_m8.c index d4c30f8..4f7ec05 100644 --- a/libgfortran/generated/maxloc0_4_m8.c +++ b/libgfortran/generated/maxloc0_4_m8.c @@ -96,7 +96,7 @@ maxloc0_4_m8 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m8 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m1.c b/libgfortran/generated/maxloc0_8_m1.c index af97213..2b4b0e7 100644 --- a/libgfortran/generated/maxloc0_8_m1.c +++ b/libgfortran/generated/maxloc0_8_m1.c @@ -96,7 +96,7 @@ maxloc0_8_m1 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m1 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m16.c b/libgfortran/generated/maxloc0_8_m16.c index e2d47b6..da03132 100644 --- a/libgfortran/generated/maxloc0_8_m16.c +++ b/libgfortran/generated/maxloc0_8_m16.c @@ -96,7 +96,7 @@ maxloc0_8_m16 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m16 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m2.c b/libgfortran/generated/maxloc0_8_m2.c index 390fc8f..0c7b74c 100644 --- a/libgfortran/generated/maxloc0_8_m2.c +++ b/libgfortran/generated/maxloc0_8_m2.c @@ -96,7 +96,7 @@ maxloc0_8_m2 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m2 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m4.c b/libgfortran/generated/maxloc0_8_m4.c index 05dda2c..307a04b 100644 --- a/libgfortran/generated/maxloc0_8_m4.c +++ b/libgfortran/generated/maxloc0_8_m4.c @@ -96,7 +96,7 @@ maxloc0_8_m4 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m4 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m8.c b/libgfortran/generated/maxloc0_8_m8.c index 48875e7..5160418 100644 --- a/libgfortran/generated/maxloc0_8_m8.c +++ b/libgfortran/generated/maxloc0_8_m8.c @@ -96,7 +96,7 @@ maxloc0_8_m8 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m8 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc1_16_m1.c b/libgfortran/generated/maxloc1_16_m1.c index 14961da..4d78e75 100644 --- a/libgfortran/generated/maxloc1_16_m1.c +++ b/libgfortran/generated/maxloc1_16_m1.c @@ -147,7 +147,7 @@ maxloc1_16_m1 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m1 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m16.c b/libgfortran/generated/maxloc1_16_m16.c index d97dbc0..e6f1ae3 100644 --- a/libgfortran/generated/maxloc1_16_m16.c +++ b/libgfortran/generated/maxloc1_16_m16.c @@ -147,7 +147,7 @@ maxloc1_16_m16 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m16 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m2.c b/libgfortran/generated/maxloc1_16_m2.c index 0187b68..8bb48dd 100644 --- a/libgfortran/generated/maxloc1_16_m2.c +++ b/libgfortran/generated/maxloc1_16_m2.c @@ -147,7 +147,7 @@ maxloc1_16_m2 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m2 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m4.c b/libgfortran/generated/maxloc1_16_m4.c index 480a524..659d6cf 100644 --- a/libgfortran/generated/maxloc1_16_m4.c +++ b/libgfortran/generated/maxloc1_16_m4.c @@ -147,7 +147,7 @@ maxloc1_16_m4 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m4 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m8.c b/libgfortran/generated/maxloc1_16_m8.c index ecbaba3..a6d2c08 100644 --- a/libgfortran/generated/maxloc1_16_m8.c +++ b/libgfortran/generated/maxloc1_16_m8.c @@ -147,7 +147,7 @@ maxloc1_16_m8 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m8 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m1.c b/libgfortran/generated/maxloc1_4_m1.c index e69d49d..709a1dd 100644 --- a/libgfortran/generated/maxloc1_4_m1.c +++ b/libgfortran/generated/maxloc1_4_m1.c @@ -147,7 +147,7 @@ maxloc1_4_m1 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m1 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m16.c b/libgfortran/generated/maxloc1_4_m16.c index 0ed90bb..cc10527 100644 --- a/libgfortran/generated/maxloc1_4_m16.c +++ b/libgfortran/generated/maxloc1_4_m16.c @@ -147,7 +147,7 @@ maxloc1_4_m16 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m16 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m2.c b/libgfortran/generated/maxloc1_4_m2.c index 76aa8d1..06f989c 100644 --- a/libgfortran/generated/maxloc1_4_m2.c +++ b/libgfortran/generated/maxloc1_4_m2.c @@ -147,7 +147,7 @@ maxloc1_4_m2 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m2 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m4.c b/libgfortran/generated/maxloc1_4_m4.c index 3313c14..6a52a0a 100644 --- a/libgfortran/generated/maxloc1_4_m4.c +++ b/libgfortran/generated/maxloc1_4_m4.c @@ -147,7 +147,7 @@ maxloc1_4_m4 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m4 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m8.c b/libgfortran/generated/maxloc1_4_m8.c index 1f39517..e2f92a9 100644 --- a/libgfortran/generated/maxloc1_4_m8.c +++ b/libgfortran/generated/maxloc1_4_m8.c @@ -147,7 +147,7 @@ maxloc1_4_m8 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m8 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m1.c b/libgfortran/generated/maxloc1_8_m1.c index 7c3ac0f9..2f2ff5a 100644 --- a/libgfortran/generated/maxloc1_8_m1.c +++ b/libgfortran/generated/maxloc1_8_m1.c @@ -147,7 +147,7 @@ maxloc1_8_m1 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m1 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m16.c b/libgfortran/generated/maxloc1_8_m16.c index c643963..c0c47bb 100644 --- a/libgfortran/generated/maxloc1_8_m16.c +++ b/libgfortran/generated/maxloc1_8_m16.c @@ -147,7 +147,7 @@ maxloc1_8_m16 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m16 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m2.c b/libgfortran/generated/maxloc1_8_m2.c index 2fa5c3b..cf915b0 100644 --- a/libgfortran/generated/maxloc1_8_m2.c +++ b/libgfortran/generated/maxloc1_8_m2.c @@ -147,7 +147,7 @@ maxloc1_8_m2 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m2 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m4.c b/libgfortran/generated/maxloc1_8_m4.c index 8761c09..6a08644 100644 --- a/libgfortran/generated/maxloc1_8_m4.c +++ b/libgfortran/generated/maxloc1_8_m4.c @@ -147,7 +147,7 @@ maxloc1_8_m4 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m4 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m8.c b/libgfortran/generated/maxloc1_8_m8.c index 83c9795..497b18d 100644 --- a/libgfortran/generated/maxloc1_8_m8.c +++ b/libgfortran/generated/maxloc1_8_m8.c @@ -147,7 +147,7 @@ maxloc1_8_m8 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m8 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxval_m1.c b/libgfortran/generated/maxval_m1.c index 18df9b8..04bf510 100644 --- a/libgfortran/generated/maxval_m1.c +++ b/libgfortran/generated/maxval_m1.c @@ -143,10 +143,10 @@ maxval_m1 (gfc_array_m1 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) result = -GFC_UINTEGER_1_INFINITY; #else - result = -GFC_UINTEGER_1_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_1_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) result = -GFC_UINTEGER_1_INFINITY; #else - result = -GFC_UINTEGER_1_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_1_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_1_QUIET_NAN : -GFC_UINTEGER_1_HUGE; + result = non_empty_p ? GFC_UINTEGER_1_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_1_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m1 (gfc_array_m1 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_1_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m16.c b/libgfortran/generated/maxval_m16.c index a66dc7a..0833d01 100644 --- a/libgfortran/generated/maxval_m16.c +++ b/libgfortran/generated/maxval_m16.c @@ -143,10 +143,10 @@ maxval_m16 (gfc_array_m16 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) result = -GFC_UINTEGER_16_INFINITY; #else - result = -GFC_UINTEGER_16_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_16_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) result = -GFC_UINTEGER_16_INFINITY; #else - result = -GFC_UINTEGER_16_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_16_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_16_QUIET_NAN : -GFC_UINTEGER_16_HUGE; + result = non_empty_p ? GFC_UINTEGER_16_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_16_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m16 (gfc_array_m16 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_16_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m2.c b/libgfortran/generated/maxval_m2.c index 19fa8de..70f3785 100644 --- a/libgfortran/generated/maxval_m2.c +++ b/libgfortran/generated/maxval_m2.c @@ -143,10 +143,10 @@ maxval_m2 (gfc_array_m2 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) result = -GFC_UINTEGER_2_INFINITY; #else - result = -GFC_UINTEGER_2_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_2_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) result = -GFC_UINTEGER_2_INFINITY; #else - result = -GFC_UINTEGER_2_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_2_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_2_QUIET_NAN : -GFC_UINTEGER_2_HUGE; + result = non_empty_p ? GFC_UINTEGER_2_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_2_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m2 (gfc_array_m2 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_2_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m4.c b/libgfortran/generated/maxval_m4.c index 6d660d8..3b1e79a 100644 --- a/libgfortran/generated/maxval_m4.c +++ b/libgfortran/generated/maxval_m4.c @@ -143,10 +143,10 @@ maxval_m4 (gfc_array_m4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) result = -GFC_UINTEGER_4_INFINITY; #else - result = -GFC_UINTEGER_4_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_4_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) result = -GFC_UINTEGER_4_INFINITY; #else - result = -GFC_UINTEGER_4_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_4_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_4_QUIET_NAN : -GFC_UINTEGER_4_HUGE; + result = non_empty_p ? GFC_UINTEGER_4_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_4_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m4 (gfc_array_m4 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_4_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m8.c b/libgfortran/generated/maxval_m8.c index d6b7dac..ece6438 100644 --- a/libgfortran/generated/maxval_m8.c +++ b/libgfortran/generated/maxval_m8.c @@ -143,10 +143,10 @@ maxval_m8 (gfc_array_m8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) result = -GFC_UINTEGER_8_INFINITY; #else - result = -GFC_UINTEGER_8_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_8_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) result = -GFC_UINTEGER_8_INFINITY; #else - result = -GFC_UINTEGER_8_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_8_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_8_QUIET_NAN : -GFC_UINTEGER_8_HUGE; + result = non_empty_p ? GFC_UINTEGER_8_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_8_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m8 (gfc_array_m8 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_8_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; |