From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 30271 invoked by alias); 15 Nov 2010 06:53:14 -0000 Received: (qmail 30260 invoked by uid 22791); 15 Nov 2010 06:53:13 -0000 X-SWARE-Spam-Status: No, hits=-2.8 required=5.0 tests=ALL_TRUSTED,AWL,BAYES_00,TW_JV X-Spam-Check-By: sourceware.org Received: from localhost (HELO gcc.gnu.org) (127.0.0.1) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Mon, 15 Nov 2010 06:51:51 +0000 From: "jvdelisle at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/46339] [4.3/4.4/4.5/4.6 Regression] ICE (segfault) in gfc_trans_pointer_assignment X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Keywords: ice-on-valid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: jvdelisle at gcc dot gnu.org X-Bugzilla-Status: NEW X-Bugzilla-Priority: P4 X-Bugzilla-Assigned-To: jvdelisle at gcc dot gnu.org X-Bugzilla-Target-Milestone: 4.4.6 X-Bugzilla-Changed-Fields: AssignedTo Message-ID: In-Reply-To: References: X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated Content-Type: text/plain; charset="UTF-8" MIME-Version: 1.0 Date: Mon, 15 Nov 2010 06:58:00 -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 X-SW-Source: 2010-11/txt/msg01843.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46339 Jerry DeLisle changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot |jvdelisle at gcc dot |gnu.org |gnu.org --- Comment #9 from Jerry DeLisle 2010-11-15 06:50:58 UTC --- Once I understood what I was seeing in the attachment. The first patch and this cleaner one, actually works. Index: trans-expr.c =================================================================== --- trans-expr.c (revision 166686) +++ trans-expr.c (working copy) @@ -4881,7 +4881,8 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gf /* If this is a subreference array pointer assignment, use the rhs descriptor element size for the lhs span. */ - if (expr1->symtree->n.sym->attr.subref_array_pointer) + if (expr1->symtree->n.sym->attr.subref_array_pointer + && DECL_LANG_SPECIFIC (expr1->symtree->n.sym->backend_decl)) { decl = expr1->symtree->n.sym->backend_decl; gfc_init_se (&rse, NULL);