From patchwork Fri Jul 8 04:09:32 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 646292 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 3rm1Gp1XM6z9sDk for ; Fri, 8 Jul 2016 14:09:53 +1000 (AEST) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=YIPHy3VI; dkim-atps=neutral DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to:cc :from:subject:message-id:date:mime-version:content-type :content-transfer-encoding; q=dns; s=default; b=uycFaGSOvu+tqZ5A bDryUHIsutSHAgrR+s2r7zCPmgiaAZGO2n5A8fgIeiQKwpqK2EHInwr25H1qXKxO kHwLKBtm1P2ePKEy6EzuKwPSryLs0N5JxcjYdQfmrl0F7qj7Dw2nwxIJvHlMB43Q fDzZwtkkj10bsJO1m/tEkFgy42c= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to:cc :from:subject:message-id:date:mime-version:content-type :content-transfer-encoding; s=default; bh=kU8KXl//2wBZ0MTJhR6O62 QcKdQ=; b=YIPHy3VITiL9CrM92bOWVqTnBLMzgoMEGGHd861Qvswpo2yJL7GIQd vEgPlOHSk+FynmkmjgadSb/SMyyyO0RR6AYPJ+Rsizh4NXrbbYQgGeV3rxHPThRL IAPAm0BSDwA0pq8RvhZHLc5hCJgKOYRuw2wUZeLgKFOPPAqN66Pwo= Received: (qmail 70424 invoked by alias); 8 Jul 2016 04:09:46 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 70405 invoked by uid 89); 8 Jul 2016 04:09:46 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.6 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 spammy= X-Spam-User: qpsmtpd, 2 recipients X-HELO: mtaout004-public.msg.strl.va.charter.net Received: from mtaout004-public.msg.strl.va.charter.net (HELO mtaout004-public.msg.strl.va.charter.net) (68.114.190.29) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 08 Jul 2016 04:09:35 +0000 Received: from impout003 ([68.114.189.18]) by mtaout004.msg.strl.va.charter.net (InterMail vM.9.00.023.01 201-2473-194) with ESMTP id <20160708040934.TOID3573.mtaout004.msg.strl.va.charter.net@impout003>; Thu, 7 Jul 2016 23:09:34 -0500 Received: from amda8.localdomain ([96.41.215.23]) by impout003 with charter.net id G49Z1t0050Wrkg00149ZRP; Thu, 07 Jul 2016 23:09:34 -0500 X-Authority-Analysis: v=2.1 cv=A8LiPsmG c=1 sm=1 tr=0 a=salB9WdMPIDduBH7JsZfrA==:117 a=salB9WdMPIDduBH7JsZfrA==:17 a=L9H7d07YOLsA:10 a=9cW_t1CCXrUA:10 a=s5jvgZ67dGcA:10 a=IkcTkHD0fZMA:10 a=mDV3o1hIAAAA:8 a=2_WgdMzDrqle9C_vZbEA:9 a=QEXdDO2ut3YA:10 a=_FVE-zBwftR9WsbkzFJk:22 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 To: fortran@gcc.gnu.org Cc: gcc-patches@gcc.gnu.org From: Jerry DeLisle Subject: [patch, fortran] Bug 71764 - [4.9/5/6/7 Regression] ICE in gfc_trans_structure_assign Message-ID: <7ef15c79-e65d-fdbd-0ef3-b03cbd3540a1@charter.net> Date: Thu, 7 Jul 2016 21:09:32 -0700 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.1.1 MIME-Version: 1.0 This trivial patch removes the problem. As far as I can tell, looking at -fdump-tree-original, the results are correct. Regression tested on x86-64. I will add a test case from the PR. I plan to commit to trunk and then backport after about a week if no problems show up. Regards, Jerry 2016-07-07 Jerry DeLisle PR fortran/71764 * trans-expr.c (gfc_trans_structure_assign): Remove assert. gfc_conv_expr (&se, gfc_constructor_first (expr->value.constructor)->expr); diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index b5731aa8..4321850b 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -7358,7 +7358,6 @@ gfc_trans_structure_assign (tree dest, gfc_expr * expr, bool init) { gfc_se se, lse; - gcc_assert (cm->backend_decl == NULL); gfc_init_se (&se, NULL); gfc_init_se (&lse, NULL);