OSDN Git Service

PR fortran/24005
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 22 Sep 2005 22:45:40 +0000 (22:45 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 22 Sep 2005 22:45:40 +0000 (22:45 +0000)
* interface.c (check_interface1): Fix NULL dereference.

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

gcc/fortran/ChangeLog
gcc/fortran/interface.c

index 76b52e8..5932bcb 100644 (file)
@@ -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
 2005-09-22  Erik Edelmann  <erik.edelmann@iki.fi>
 
        PR fortran/23843
index 36c383a..9edbb15 100644 (file)
@@ -926,8 +926,7 @@ check_interface1 (gfc_interface * p, gfc_interface * q,
        if (p->sym == q->sym)
          continue;             /* Duplicates OK here */
 
        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))
          continue;
 
        if (compare_interfaces (p->sym, q->sym, generic_flag))