diff options
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 28747e0..611754c 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -443,6 +443,8 @@ static int compare_interfaces (gfc_symbol *, gfc_symbol *, int); static int compare_type_rank_if (gfc_symbol * s1, gfc_symbol * s2) { + if (s1 == NULL || s2 == NULL) + return s1 == s2 ? 1 : 0; if (s1->attr.flavor != FL_PROCEDURE && s2->attr.flavor != FL_PROCEDURE) return compare_type_rank (s1, s2); @@ -731,14 +733,14 @@ count_types_test (gfc_formal_arglist * f1, gfc_formal_arglist * f2) if (arg[i].flag != -1) continue; - if (arg[i].sym->attr.optional) + if (arg[i].sym && arg[i].sym->attr.optional) continue; /* Skip optional arguments */ arg[i].flag = k; /* Find other nonoptional arguments of the same type/rank. */ for (j = i + 1; j < n1; j++) - if (!arg[j].sym->attr.optional + if ((arg[j].sym == NULL || !arg[j].sym->attr.optional) && compare_type_rank_if (arg[i].sym, arg[j].sym)) arg[j].flag = k; @@ -968,7 +970,7 @@ check_interface0 (gfc_interface * p, const char *interface_name) static int check_interface1 (gfc_interface * p, gfc_interface * q0, int generic_flag, const char *interface_name, - int referenced) + bool referenced) { gfc_interface * q; for (; p; p = p->next) @@ -1008,7 +1010,7 @@ static void check_sym_interfaces (gfc_symbol * sym) { char interface_name[100]; - int k; + bool k; if (sym->ns != gfc_current_ns) return; @@ -1048,7 +1050,7 @@ check_uop_interfaces (gfc_user_op * uop) continue; check_interface1 (uop->operator, uop2->operator, 0, - interface_name, 1); + interface_name, true); } } @@ -1090,7 +1092,7 @@ gfc_check_interfaces (gfc_namespace * ns) for (ns2 = ns->parent; ns2; ns2 = ns2->parent) if (check_interface1 (ns->operator[i], ns2->operator[i], 0, - interface_name, 1)) + interface_name, true)) break; } |