diff options
Diffstat (limited to 'libgfortran/generated/minval0_s1.c')
| -rw-r--r-- | libgfortran/generated/minval0_s1.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/libgfortran/generated/minval0_s1.c b/libgfortran/generated/minval0_s1.c index a346f47..a15b835 100644 --- a/libgfortran/generated/minval0_s1.c +++ b/libgfortran/generated/minval0_s1.c @@ -30,12 +30,12 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include <limits.h> -#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1) +#if defined (HAVE_GFC_UINTEGER_1) && defined (HAVE_GFC_UINTEGER_1) 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); @@ -44,20 +44,20 @@ compare_fcn (const GFC_INTEGER_1 *a, const GFC_INTEGER_1 *b, gfc_charlen_type n) #define INITVAL 255 -extern void minval0_s1 (GFC_INTEGER_1 * restrict, +extern void minval0_s1 (GFC_UINTEGER_1 * restrict, gfc_charlen_type, gfc_array_s1 * const restrict array, gfc_charlen_type); export_proto(minval0_s1); void -minval0_s1 (GFC_INTEGER_1 * restrict ret, +minval0_s1 (GFC_UINTEGER_1 * restrict ret, gfc_charlen_type xlen, gfc_array_s1 * const restrict array, gfc_charlen_type len) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS]; - const GFC_INTEGER_1 *base; + const GFC_UINTEGER_1 *base; index_type rank; index_type n; @@ -83,7 +83,7 @@ minval0_s1 (GFC_INTEGER_1 * restrict ret, { - const GFC_INTEGER_1 *retval; + const GFC_UINTEGER_1 *retval; retval = ret; while (base) @@ -130,13 +130,13 @@ minval0_s1 (GFC_INTEGER_1 * restrict ret, } -extern void mminval0_s1 (GFC_INTEGER_1 * restrict, +extern void mminval0_s1 (GFC_UINTEGER_1 * restrict, gfc_charlen_type, gfc_array_s1 * const restrict array, gfc_array_l1 * const restrict mask, gfc_charlen_type len); export_proto(mminval0_s1); void -mminval0_s1 (GFC_INTEGER_1 * const restrict ret, +mminval0_s1 (GFC_UINTEGER_1 * const restrict ret, gfc_charlen_type xlen, gfc_array_s1 * const restrict array, gfc_array_l1 * const restrict mask, gfc_charlen_type len) { @@ -144,7 +144,7 @@ mminval0_s1 (GFC_INTEGER_1 * const restrict ret, index_type extent[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS]; - const GFC_INTEGER_1 *base; + const GFC_UINTEGER_1 *base; GFC_LOGICAL_1 *mbase; int rank; index_type n; @@ -185,7 +185,7 @@ mminval0_s1 (GFC_INTEGER_1 * const restrict ret, base = array->base_addr; { - const GFC_INTEGER_1 *retval; + const GFC_UINTEGER_1 *retval; retval = ret; @@ -236,13 +236,13 @@ mminval0_s1 (GFC_INTEGER_1 * const restrict ret, } -extern void sminval0_s1 (GFC_INTEGER_1 * restrict, +extern void sminval0_s1 (GFC_UINTEGER_1 * restrict, gfc_charlen_type, gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *, gfc_charlen_type); export_proto(sminval0_s1); void -sminval0_s1 (GFC_INTEGER_1 * restrict ret, +sminval0_s1 (GFC_UINTEGER_1 * restrict ret, gfc_charlen_type xlen, gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, gfc_charlen_type len) |