From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 91378 invoked by alias); 20 Mar 2015 21:27:47 -0000 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 Received: (qmail 91337 invoked by uid 48); 20 Mar 2015 21:27:43 -0000 From: "janus at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/65469] [4.8/4.9/5 Regression] ICE on bad code Date: Fri, 20 Mar 2015 22:51:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 4.9.2 X-Bugzilla-Keywords: error-recovery, ice-on-invalid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: janus at gcc dot gnu.org X-Bugzilla-Status: NEW X-Bugzilla-Priority: P4 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: 5.0 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: Message-ID: In-Reply-To: References: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2015-03/txt/msg02181.txt.bz2 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65469 --- Comment #2 from janus at gcc dot gnu.org --- This should be enough to fix it: Index: gcc/fortran/interface.c =================================================================== --- gcc/fortran/interface.c (Revision 221530) +++ gcc/fortran/interface.c (Arbeitskopie) @@ -1569,7 +1569,7 @@ check_interface0 (gfc_interface *p, const char *in functions or subroutines. */ if (((!p->sym->attr.function && !p->sym->attr.subroutine) || !p->sym->attr.if_source) - && p->sym->attr.flavor != FL_DERIVED) + && p->sym->attr.flavor != FL_DERIVED && *p->sym->name) { if (p->sym->attr.external) gfc_error ("Procedure %qs in %s at %L has no explicit interface",