diff options
Diffstat (limited to 'gcc/fortran/trans-types.c')
| -rw-r--r-- | gcc/fortran/trans-types.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index bff025cbb7e..cbc8766996a 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -103,7 +103,7 @@ int gfc_intio_kind; void gfc_init_kinds (void) { - enum machine_mode mode; + int mode; int i_index, r_index; bool saw_i4 = false, saw_i8 = false; bool saw_r4 = false, saw_r8 = false, saw_r16 = false; @@ -112,7 +112,7 @@ gfc_init_kinds (void) { int kind, bitsize; - if (!targetm.scalar_mode_supported_p (mode)) + if (!targetm.scalar_mode_supported_p ((enum machine_mode)mode)) continue; /* The middle end doesn't support constants larger than 2*HWI. @@ -165,7 +165,7 @@ gfc_init_kinds (void) if (fmt == NULL) continue; - if (!targetm.scalar_mode_supported_p (mode)) + if (!targetm.scalar_mode_supported_p ((enum machine_mode)mode)) continue; /* Only let float/double/long double go through because the fortran @@ -1194,7 +1194,7 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound, { char name[8 + GFC_RANK_DIGITS + GFC_MAX_SYMBOL_LEN]; tree fat_type, base_type, arraytype, lower, upper, stride, tmp; - const char *typename; + const char *type_name; int n; base_type = gfc_get_array_descriptor_base (dimen); @@ -1204,11 +1204,11 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound, if (tmp && TREE_CODE (tmp) == TYPE_DECL) tmp = DECL_NAME (tmp); if (tmp) - typename = IDENTIFIER_POINTER (tmp); + type_name = IDENTIFIER_POINTER (tmp); else - typename = "unknown"; + type_name = "unknown"; sprintf (name, "array" GFC_RANK_PRINTF_FORMAT "_%.*s", dimen, - GFC_MAX_SYMBOL_LEN, typename); + GFC_MAX_SYMBOL_LEN, type_name); TYPE_NAME (fat_type) = get_identifier (name); GFC_DESCRIPTOR_TYPE_P (fat_type) = 1; |