From patchwork Wed Jul 4 18:13:59 2018 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 939517 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Authentication-Results: ozlabs.org; spf=pass (mailfrom) smtp.mailfrom=gcc.gnu.org (client-ip=209.132.180.131; helo=sourceware.org; envelope-from=gcc-patches-return-481010-incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=) Authentication-Results: ozlabs.org; dmarc=none (p=none dis=none) header.from=charter.net Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b="aNqN8Crt"; dkim-atps=neutral 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 41LTdy52Dbz9s29 for ; Thu, 5 Jul 2018 04:14:13 +1000 (AEST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to :from:subject:message-id:date:mime-version:content-type :content-transfer-encoding; q=dns; s=default; b=VJ1qgp1T6Iu3vfJq azbu+r8fJfUv8yf/rWXEnlQWrFbV0IT/pfVqf9FKecpJ5YxKGRx2WxQQVpsIkui0 3VY0Ozsu8qZFHTn1kzbShQZEnDxMMPOoaQdEubCJHs9wHf+pafKocoydypoPouOz GU191AVCl+21L3KDq4+fxICyb7I= 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 :from:subject:message-id:date:mime-version:content-type :content-transfer-encoding; s=default; bh=V8aqsB8dVTSU/G+1TV2Vps SeJ9k=; b=aNqN8Crt3Klo/FCas4lIKcmWjm6DhI5CRzcezElSHccpV5SPwHTi8H bhPydOTA0nejo8Xq5Ey1wNa/lSG5UYMMeYXxw8KvLmDytM9c/N2Jr907Gczg1ZLq 0Jv8Xk1aOCxNr1i5tLVa6Z1vJevGxEMM+BIor6FQcLLkwtB57lPcI= Received: (qmail 80155 invoked by alias); 4 Jul 2018 18:14:05 -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 80126 invoked by uid 89); 4 Jul 2018 18:14:03 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-25.0 required=5.0 tests=AWL, BAYES_00, FREEMAIL_FROM, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_SHORT, RCVD_IN_DNSWL_NONE, SPF_PASS autolearn=ham version=3.3.2 spammy=H*Ad:U*jvdelisle, H*r:ip*192.168.1.6, H*r:InterMail X-HELO: mtaout002-public.msg.strl.va.charter.net Received: from mtaout002-public.msg.strl.va.charter.net (HELO mtaout002-public.msg.strl.va.charter.net) (68.114.190.27) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 04 Jul 2018 18:14:02 +0000 Received: from impout005 ([68.114.189.20]) by mtaout002.msg.strl.va.charter.net (InterMail vM.9.00.023.01 201-2473-194) with ESMTP id <20180704181400.DXQT7360.mtaout002.msg.strl.va.charter.net@impout005>; Wed, 4 Jul 2018 13:14:00 -0500 Received: from [192.168.1.6] ([96.41.213.35]) by impout005 with charter.net id 6iDz1y00F0mPCJg01iDzev; Wed, 04 Jul 2018 13:14:00 -0500 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 To: "fortran@gcc.gnu.org" , GCC Patches From: Jerry DeLisle Subject: [patch, committed, fortran] PR82009 [F08] ICE with block construct Message-ID: Date: Wed, 4 Jul 2018 11:13:59 -0700 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.8.0 MIME-Version: 1.0 This patch committed as obvious after regression testing and auditing the code. New test case added. Author: jvdelisle Date: Wed Jul 4 18:08:16 2018 New Revision: 262416 URL: https://gcc.gnu.org/viewcvs?rev=262416&root=gcc&view=rev Log: 2018-07-04 Jerry DeLisle PR fortran/82009 * trans-decl.c (gfc_process_block_locals): Delete assert and set saved_local_decls = NULL_TREE. * gfortran.dg/block_16.f08. New test. Added: trunk/gcc/testsuite/gfortran.dg/block_16.f08 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/trans-decl.c trunk/gcc/testsuite/ChangeLog diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 254768c5828..08c1ebd2d4b 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -6751,7 +6751,7 @@ gfc_process_block_locals (gfc_namespace* ns) { tree decl; - gcc_assert (saved_local_decls == NULL_TREE); + saved_local_decls = NULL_TREE; has_coarray_vars = false; generate_local_vars (ns);