This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

[patch, fortran] PR42684 [4.5 Regression] ICE when interface operator(xx) available through host and use assoc in module procedure

From: Jerry DeLisle <jvdelisle at verizon dot net>
To: gfortran list <fortran at gcc dot gnu dot org>
Cc: gcc patches <gcc-patches at gcc dot gnu dot org>
Date: Tue, 12 Jan 2010 20:48:41 -0800
Subject: [patch, fortran] PR42684 [4.5 Regression] ICE when interface operator(xx) available through host and use assoc in module procedure

This patch fixes this regression. I think it is fairly self explanatory.

Regression tested on x86-64-linux-gnu. test case attached.

OK for trunk?

Regards,

Jerry

2010-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/42684
	* interface.c (check_interface1): Pass symbol name rather than NULL to
	gfc_compare_interfaces.


Index: interface.c
===================================================================
--- interface.c	(revision 155849)
+++ interface.c	(working copy)
@@ -1126,7 +1126,7 @@ check_interface1 (gfc_interface *p, gfc_interface
 	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)

Attachment: interface_31.f90
Description: Text document

Follow-Ups:
- Re: [patch, fortran] PR42684 [4.5 Regression] ICE when interface operator(xx) available through host and use assoc in module procedure
  - From: Tobias Burnus

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]