diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-09-22 22:45:40 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-09-22 22:45:40 +0000 |
| commit | 312ae8f4020734ba9f827fefb44d1e2f37b092b6 (patch) | |
| tree | b5ab2575afcbef436c9f6d3f674d964a3ce1efb1 /gcc/fortran/interface.c | |
| parent | 8451584a84b785b5e7bd09de1a7b886fc2ebfd81 (diff) | |
| download | gcc-312ae8f4020734ba9f827fefb44d1e2f37b092b6.zip gcc-312ae8f4020734ba9f827fefb44d1e2f37b092b6.tar.gz gcc-312ae8f4020734ba9f827fefb44d1e2f37b092b6.tar.bz2 | |
re PR fortran/24005 (Ambiguous INTERFACE leads to seg fault)
PR fortran/24005
* interface.c (check_interface1): Fix NULL dereference.
From-SVN: r104544
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 36c383a..9edbb15 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)) |