diff options
Diffstat (limited to 'libgfortran/generated/minloc1_4_s1.c')
| -rw-r--r-- | libgfortran/generated/minloc1_4_s1.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c index 4be56681c43..0a52c34c259 100644 --- a/libgfortran/generated/minloc1_4_s1.c +++ b/libgfortran/generated/minloc1_4_s1.c @@ -26,7 +26,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" -#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_4) +#if defined (HAVE_GFC_UINTEGER_1) && defined (HAVE_GFC_INTEGER_4) #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_1 *a, const GFC_INTEGER_1 *b, gfc_charlen_type n) +compare_fcn (const GFC_UINTEGER_1 *a, const GFC_UINTEGER_1 *b, gfc_charlen_type n) { - if (sizeof (GFC_INTEGER_1) == 1) + if (sizeof (GFC_UINTEGER_1) == 1) return memcmp (a, b, n); else return memcmp_char4 (a, b, n); @@ -57,7 +57,7 @@ minloc1_4_s1 (gfc_array_i4 * const restrict retarray, index_type extent[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS]; - const GFC_INTEGER_1 * restrict base; + const GFC_UINTEGER_1 * restrict base; GFC_INTEGER_4 * restrict dest; index_type rank; index_type n; @@ -155,12 +155,12 @@ minloc1_4_s1 (gfc_array_i4 * const restrict retarray, continue_loop = 1; while (continue_loop) { - const GFC_INTEGER_1 * restrict src; + const GFC_UINTEGER_1 * restrict src; GFC_INTEGER_4 result; src = base; { - const GFC_INTEGER_1 *minval; + const GFC_UINTEGER_1 *minval; minval = NULL; result = 0; if (len <= 0) @@ -231,7 +231,7 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray, index_type dstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS]; GFC_INTEGER_4 * restrict dest; - const GFC_INTEGER_1 * restrict base; + const GFC_UINTEGER_1 * restrict base; const GFC_LOGICAL_1 * restrict mbase; index_type rank; index_type dim; @@ -349,14 +349,14 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray, while (base) { - const GFC_INTEGER_1 * restrict src; + const GFC_UINTEGER_1 * restrict src; const GFC_LOGICAL_1 * restrict msrc; GFC_INTEGER_4 result; src = base; msrc = mbase; { - const GFC_INTEGER_1 *minval; + const GFC_UINTEGER_1 *minval; minval = base; result = 0; for (n = 0; n < len; n++, src += delta, msrc += mdelta) |