re PR fortran/24005 (Ambiguous INTERFACE leads to seg fault)

PR fortran/24005
* interface.c (check_interface1): Fix NULL dereference.

From-SVN: r104544

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 76b52e8dbee4efeed1c65c3438b1f6882fb7b992..5932bcbbcd13e1544d509957550b34f328b59a66 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-22  Steven G. Kargl  <kargls@comcast.net>
+
+       PR fortran/24005
+       * interface.c (check_interface1): Fix NULL dereference.
+
 2005-09-22  Erik Edelmann  <erik.edelmann@iki.fi>
 
        PR fortran/23843

diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 36c383a910b958d7b6bf2a298a2d5065c7ffdb9d..9edbb15cceb0332e03b20ac73aaaa9e3a9cb38d1 100644 (file)
--- 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))