From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 19443 invoked by alias); 13 Jan 2010 04:23:56 -0000 Received: (qmail 18689 invoked by uid 48); 13 Jan 2010 04:23:33 -0000 Date: Wed, 13 Jan 2010 04:23:00 -0000 Message-ID: <20100113042333.18688.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/42684] [4.5 Regression] ICE when interface operator(xx) available through host and use assoc in module procedure In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "jvdelisle at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2010-01/txt/msg01439.txt.bz2 ------- 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