From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 31997 invoked by alias); 18 May 2009 16:59:36 -0000 Received: (qmail 31961 invoked by uid 48); 18 May 2009 16:59:25 -0000 Date: Mon, 18 May 2009 16:59:00 -0000 Message-ID: <20090518165925.31960.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40176] Fortran 2003: Procedure pointers with array return value In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "janus 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: 2009-05/txt/msg01552.txt.bz2 ------- Comment #3 from janus at gcc dot gnu dot org 2009-05-18 16:59 ------- Comment #0 is fixed by the following one-liner patch: Index: gcc/fortran/resolve.c =================================================================== --- gcc/fortran/resolve.c (revision 147663) +++ gcc/fortran/resolve.c (working copy) @@ -9414,6 +9414,7 @@ || sym->ts.interface->attr.intrinsic) { gfc_symbol *ifc = sym->ts.interface; + resolve_symbol (ifc); if (ifc->attr.intrinsic) resolve_intrinsic (ifc, &ifc->declared_at); However this does nothing about the gimplification failure in comment #2. -- janus at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |janus at gcc dot gnu dot org |dot org | Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2009-05-18 16:59:25 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40176