diff options
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index b03be73..9df24ff 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -479,7 +479,6 @@ compare_type_rank (gfc_symbol *s1, gfc_symbol *s2) } -static int compare_interfaces (gfc_symbol *, gfc_symbol *, int); static int compare_intr_interfaces (gfc_symbol *, gfc_symbol *); /* Given two symbols that are formal arguments, compare their types @@ -954,8 +953,8 @@ generic_correspondence (gfc_formal_arglist *f1, gfc_formal_arglist *f2) We return nonzero if there exists an actual argument list that would be ambiguous between the two interfaces, zero otherwise. */ -static int -compare_interfaces (gfc_symbol *s1, gfc_symbol *s2, int generic_flag) +int +gfc_compare_interfaces (gfc_symbol *s1, gfc_symbol *s2, int generic_flag) { gfc_formal_arglist *f1, *f2; @@ -1173,7 +1172,7 @@ check_interface1 (gfc_interface *p, gfc_interface *q0, if (p->sym->name == q->sym->name && p->sym->module == q->sym->module) continue; - if (compare_interfaces (p->sym, q->sym, generic_flag)) + if (gfc_compare_interfaces (p->sym, q->sym, generic_flag)) { if (referenced) { @@ -1460,7 +1459,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual, if (!compare_intr_interfaces (formal, actual->symtree->n.sym)) goto proc_fail; } - else if (!compare_interfaces (formal, actual->symtree->n.sym, 0)) + else if (!gfc_compare_interfaces (formal, actual->symtree->n.sym, 0)) goto proc_fail; return 1; @@ -1819,9 +1818,9 @@ has_vector_subscript (gfc_expr *e) errors when things don't match instead of just returning the status code. */ -static int -compare_actual_formal (gfc_actual_arglist **ap, gfc_formal_arglist *formal, - int ranks_must_agree, int is_elemental, locus *where) +int +gfc_compare_actual_formal (gfc_actual_arglist **ap, gfc_formal_arglist *formal, + int ranks_must_agree, int is_elemental, locus *where) { gfc_actual_arglist **new_arg, *a, *actual, temp; gfc_formal_arglist *f; @@ -2449,8 +2448,8 @@ gfc_procedure_use (gfc_symbol *sym, gfc_actual_arglist **ap, locus *where) return; } - if (!compare_actual_formal (ap, sym->formal, 0, - sym->attr.elemental, where)) + if (!gfc_compare_actual_formal (ap, sym->formal, 0, + sym->attr.elemental, where)) return; check_intents (sym->formal, *ap); @@ -2479,7 +2478,7 @@ gfc_search_interface (gfc_interface *intr, int sub_flag, r = !intr->sym->attr.elemental; - if (compare_actual_formal (ap, intr->sym->formal, r, !r, NULL)) + if (gfc_compare_actual_formal (ap, intr->sym->formal, r, !r, NULL)) { check_intents (intr->sym->formal, *ap); if (gfc_option.warn_aliasing) |