------- Comment #6 from jvdelisle at gcc dot gnu dot org 2010-01-13 04:23
-------
Regression testing with the following patch passes. I used p->sym->name
instead of q->sym->name in place of NULL, but I do not think it matters.
Index: interface.c
===================================================================
--- interface.c (revision 155799)
+++ interface.c (working copy)
@@ -1126,7 +1126,7 @@
if (p->sym->name == q->sym->name && p->sym->module == q->sym->module)
continue;
- if (gfc_compare_interfaces (p->sym, q->sym, NULL, generic_flag, 0,
+ if (gfc_compare_interfaces (p->sym, q->sym, p->sym->name, generic_flag,
0,
NULL, 0))
{
if (referenced)
and allows operator.f90 to compile as well as the test case in PR42680.
I think this does it. I will submit to list for approval.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42684
