From 312ae8f4020734ba9f827fefb44d1e2f37b092b6 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Thu, 22 Sep 2005 22:45:40 +0000 Subject: [PATCH] re PR fortran/24005 (Ambiguous INTERFACE leads to seg fault) PR fortran/24005 * interface.c (check_interface1): Fix NULL dereference. From-SVN: r104544 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/interface.c | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 76b52e8dbee..5932bcbbcd1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-09-22 Steven G. Kargl + + PR fortran/24005 + * interface.c (check_interface1): Fix NULL dereference. + 2005-09-22 Erik Edelmann PR fortran/23843 diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 36c383a910b..9edbb15cceb 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -926,8 +926,7 @@ check_interface1 (gfc_interface * p, gfc_interface * q, if (p->sym == q->sym) continue; /* Duplicates OK here */ - if (strcmp (p->sym->name, q->sym->name) == 0 - && strcmp (p->sym->module, q->sym->module) == 0) + if (p->sym->name == q->sym->name && p->sym->module == q->sym->module) continue; if (compare_interfaces (p->sym, q->sym, generic_flag)) -- 2.30.2