From patchwork Sat Dec 21 20:53:45 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Harald Anlauf X-Patchwork-Id: 1214593 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Authentication-Results: ozlabs.org; spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org (client-ip=209.132.180.131; helo=sourceware.org; envelope-from=gcc-patches-return-516441-incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=) Authentication-Results: ozlabs.org; dmarc=none (p=none dis=none) header.from=gmx.de Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b="CHvkbLFI"; dkim=fail reason="signature verification failed" (1024-bit key; secure) header.d=gmx.net header.i=@gmx.net header.b="g1fOcamw"; 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 47gHsX24W7z9sPL for ; Sun, 22 Dec 2019 07:54:05 +1100 (AEDT) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:message-id:from:to:subject:content-type:date :content-transfer-encoding; q=dns; s=default; b=FzywJJ7OK/GJpIiA Wc9fKc2gpinceiBUi67vhQwXSUEQZd65S/fnaaZODyjHdZOw44P9q439Dn33zI2Z vyxrwwci4MHhSQ0CSRKjHuJscJWFUbdjdVJwIahfrobxdTfb2BZE1G/bYzAypaub PonLW7V33/ivl8no0EmA0Onw7zM= 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 :mime-version:message-id:from:to:subject:content-type:date :content-transfer-encoding; s=default; bh=glPKEIPxgOBa26nLyVBHKv Uaw6I=; b=CHvkbLFI2asmCWrjvFZaWiws6wyXVdTadr4sqCoMAIn0d7+L+Giy6y lregqW0I/QPlXQ2pwH4+VobcfgrY/GQw3auFMpG3QDZAJ99/eZrxXTRaT+TYpaxN /uRzqLHDbGT5n2O9XNgjs3Q+iAzny+SCvEx8pCe/6z2KWVO81Xs8w= Received: (qmail 90953 invoked by alias); 21 Dec 2019 20:53:58 -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 90935 invoked by uid 89); 21 Dec 2019 20:53:58 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-8.1 required=5.0 tests=AWL, BAYES_00, FREEMAIL_FROM, GIT_PATCH_2, GIT_PATCH_3, KAM_NUMSUBJECT, RCVD_IN_DNSWL_LOW, SPF_PASS autolearn=ham version=3.3.1 spammy=Gerhard, Steinmetz, gerhard, steinmetz X-HELO: mout.gmx.net Received: from mout.gmx.net (HELO mout.gmx.net) (212.227.17.20) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 21 Dec 2019 20:53:48 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.net; s=badeba3b8450; t=1576961625; bh=mu6q6mt0vJ51uALby4oYdXFK+rRUiBbi/+xAH3VdJ24=; h=X-UI-Sender-Class:From:To:Subject:Date; b=g1fOcamwRoaMD7iQkYJQVmHuDmaTwYhKv7MpoMyVyD3lOyjVeCnuX27U1aKxRkjod FHwRuxTyUusZLaBds9TlikyH92nn2JCDSpCVEATFySkovX/HQ89MXXM9B6OS5zcfYc jobgfI+4qxEMm0vvxoxCP4YEy3KpO0XIMwOa4k00= X-UI-Sender-Class: 01bb95c1-4bf8-414a-932a-4f6e2808ef9c Received: from [79.232.146.103] ([79.232.146.103]) by web-mail.gmx.net (3c-app-gmx-bap46.server.lan [172.19.172.116]) (via HTTP); Sat, 21 Dec 2019 21:53:45 +0100 MIME-Version: 1.0 Message-ID: From: "Harald Anlauf" To: fortran , gcc-patches Subject: [Patch, commited] PR91661 - ICE in gfc_conv_intrinsic_dot_product, at fortran/trans-intrinsic.c:4804 Date: Sat, 21 Dec 2019 21:53:45 +0100 A "side-effect" of Tobias Burnus' fix for PR92996, which addressed simplification of some array-valued constant expression, is that it fixes the ICE in the subject. To make sure that we do not regress I committed the testcase below as rev.279699. This was OKed in the PR by Thomas König. Thanks, Harald 2019-12-21 Harald Anlauf PR fortran/91661 * gfortran.dg/pr91661.f90: New test. Index: gcc/testsuite/gfortran.dg/pr91661.f90 =================================================================== --- gcc/testsuite/gfortran.dg/pr91661.f90 (nicht existent) +++ gcc/testsuite/gfortran.dg/pr91661.f90 (Arbeitskopie) @@ -0,0 +1,13 @@ +! { dg-do run } +! PR fortran/91661 +! Contributed by Gerhard Steinmetz +! Verify that fix for PR92996 also fixes this one +program p + integer, parameter :: a(2) = 2 + integer, parameter :: b(a(1)) = 3 + integer, parameter :: c = dot_product(b, b) + integer, parameter :: d(a(1)+a(2)) = 3 + integer, parameter :: e = size (d,dim=1) + if (c /= 18) stop 1 ! This used to ICE + if (e /= 4) stop 2 ! This used to ICE +end