diff options
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 09f7238..f5746bf 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2405,13 +2405,13 @@ gfc_procedure_use (gfc_symbol *sym, gfc_actual_arglist **ap, locus *where) gfc_warning ("Procedure '%s' called with an implicit interface at %L", sym->name, where); - if (sym->interface && sym->interface->attr.intrinsic) + if (sym->ts.interface && sym->ts.interface->attr.intrinsic) { gfc_intrinsic_sym *isym; - isym = gfc_find_function (sym->interface->name); + isym = gfc_find_function (sym->ts.interface->name); if (isym != NULL) { - if (compare_actual_formal_intr (ap, sym->interface)) + if (compare_actual_formal_intr (ap, sym->ts.interface)) return; gfc_error ("Type/rank mismatch in argument '%s' at %L", sym->name, where); |