diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 3f27fda..365dd98 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -502,7 +502,7 @@ match gfc_match_use (void) { char name[GFC_MAX_SYMBOL_LEN + 1], module_nature[GFC_MAX_SYMBOL_LEN + 1]; - gfc_use_rename *tail = NULL, *new; + gfc_use_rename *tail = NULL, *new_use; interface_type type, type2; gfc_intrinsic_op op; match m; @@ -581,19 +581,19 @@ gfc_match_use (void) for (;;) { /* Get a new rename struct and add it to the rename list. */ - new = gfc_get_use_rename (); - new->where = gfc_current_locus; - new->found = 0; + new_use = gfc_get_use_rename (); + new_use->where = gfc_current_locus; + new_use->found = 0; if (gfc_rename_list == NULL) - gfc_rename_list = new; + gfc_rename_list = new_use; else - tail->next = new; - tail = new; + tail->next = new_use; + tail = new_use; /* See what kind of interface we're dealing with. Assume it is not an operator. */ - new->op = INTRINSIC_NONE; + new_use->op = INTRINSIC_NONE; if (gfc_match_generic_spec (&type, name, &op) == MATCH_ERROR) goto cleanup; @@ -614,16 +614,16 @@ gfc_match_use (void) goto cleanup; if (type == INTERFACE_USER_OP) - new->op = INTRINSIC_USER; + new_use->op = INTRINSIC_USER; if (only_flag) { if (m != MATCH_YES) - strcpy (new->use_name, name); + strcpy (new_use->use_name, name); else { - strcpy (new->local_name, name); - m = gfc_match_generic_spec (&type2, new->use_name, &op); + strcpy (new_use->local_name, name); + m = gfc_match_generic_spec (&type2, new_use->use_name, &op); if (type != type2) goto syntax; if (m == MATCH_NO) @@ -636,9 +636,9 @@ gfc_match_use (void) { if (m != MATCH_YES) goto syntax; - strcpy (new->local_name, name); + strcpy (new_use->local_name, name); - m = gfc_match_generic_spec (&type2, new->use_name, &op); + m = gfc_match_generic_spec (&type2, new_use->use_name, &op); if (type != type2) goto syntax; if (m == MATCH_NO) @@ -647,8 +647,8 @@ gfc_match_use (void) goto cleanup; } - if (strcmp (new->use_name, module_name) == 0 - || strcmp (new->local_name, module_name) == 0) + if (strcmp (new_use->use_name, module_name) == 0 + || strcmp (new_use->local_name, module_name) == 0) { gfc_error ("The name '%s' at %C has already been used as " "an external module name.", module_name); @@ -657,7 +657,7 @@ gfc_match_use (void) break; case INTERFACE_INTRINSIC_OP: - new->op = op; + new_use->op = op; break; default: |