diff options
Diffstat (limited to 'libgfortran/generated/maxloc1_8_s4.c')
| -rw-r--r-- | libgfortran/generated/maxloc1_8_s4.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c index 25c711d..967f3fd 100644 --- a/libgfortran/generated/maxloc1_8_s4.c +++ b/libgfortran/generated/maxloc1_8_s4.c @@ -26,7 +26,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" -#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8) +#if defined (HAVE_GFC_UINTEGER_4) && defined (HAVE_GFC_INTEGER_8) #define HAVE_BACK_ARG 1 @@ -34,9 +34,9 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include <assert.h> static inline int -compare_fcn (const GFC_INTEGER_4 *a, const GFC_INTEGER_4 *b, gfc_charlen_type n) +compare_fcn (const GFC_UINTEGER_4 *a, const GFC_UINTEGER_4 *b, gfc_charlen_type n) { - if (sizeof (GFC_INTEGER_4) == 1) + if (sizeof (GFC_UINTEGER_4) == 1) return memcmp (a, b, n); else return memcmp_char4 (a, b, n); @@ -57,7 +57,7 @@ maxloc1_8_s4 (gfc_array_i8 * const restrict retarray, index_type extent[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS]; - const GFC_INTEGER_4 * restrict base; + const GFC_UINTEGER_4 * restrict base; GFC_INTEGER_8 * restrict dest; index_type rank; index_type n; @@ -155,12 +155,12 @@ maxloc1_8_s4 (gfc_array_i8 * const restrict retarray, continue_loop = 1; while (continue_loop) { - const GFC_INTEGER_4 * restrict src; + const GFC_UINTEGER_4 * restrict src; GFC_INTEGER_8 result; src = base; { - const GFC_INTEGER_4 *maxval; + const GFC_UINTEGER_4 *maxval; maxval = NULL; result = 0; if (len <= 0) @@ -231,7 +231,7 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, index_type dstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS]; GFC_INTEGER_8 * restrict dest; - const GFC_INTEGER_4 * restrict base; + const GFC_UINTEGER_4 * restrict base; const GFC_LOGICAL_1 * restrict mbase; index_type rank; index_type dim; @@ -349,14 +349,14 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, while (base) { - const GFC_INTEGER_4 * restrict src; + const GFC_UINTEGER_4 * restrict src; const GFC_LOGICAL_1 * restrict msrc; GFC_INTEGER_8 result; src = base; msrc = mbase; { - const GFC_INTEGER_4 *maxval; + const GFC_UINTEGER_4 *maxval; maxval = base; result = 0; for (n = 0; n < len; n++, src += delta, msrc += mdelta) |