PR fortran/24005

* interface.c (check_interface1): Fix NULL dereference.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104544 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 76b52e8..5932bcb 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 36c383a..9edbb15 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))