From patchwork Tue Feb 27 21:00:14 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Harald Anlauf X-Patchwork-Id: 207427 Return-Path: Delivered-To: ouuuleilei@gmail.com Received: by 2002:a05:7300:a81b:b0:108:e6aa:91d0 with SMTP id bq27csp2961800dyb; Tue, 27 Feb 2024 13:01:09 -0800 (PST) X-Forwarded-Encrypted: i=3; AJvYcCVx7Y025gJdagBzbNmlpcZpMFySv5qZuWu0+5+0wWIODZFCcb0s0M+gyJDn/sU/bqBbfAekvLZdl7MOSA98FCNq2YHVjA== X-Google-Smtp-Source: AGHT+IENegSrZYMG59sx6EM+dDlJ39rfXO4KOW5Dugr3oywT54758OWJQftxAkX53jFkZEHeargb X-Received: by 2002:a05:6214:1bce:b0:68f:f01b:dec3 with SMTP id m14-20020a0562141bce00b0068ff01bdec3mr4914096qvc.44.1709067669054; Tue, 27 Feb 2024 13:01:09 -0800 (PST) ARC-Seal: i=2; a=rsa-sha256; t=1709067669; cv=pass; d=google.com; s=arc-20160816; b=ertadpm1FdyW70BXLHgTymX2aQTA7uQHzGCxoaiSO9TlQtukOspr2aWf6ST4oTq3NX Q62eh3V9o0lWTvcWaTgd/EUQAzT59Hfl8SZaCq5GL1ijENnF2mr5I1OeL+3MsHkZGkxC 3R0w3p3X4U/3xB5j1DnK4gLo2U5XPM7ZcHMZmEKeQNXg7CZQqtNA/vi211ZayztMzMvJ 0S66Ji6RCOUHFzYyq398rQwH+DZI7Tflz5E6+GwVB0ggzLs9cGcEILeOxAOBqPEbNHyY klDwQ8//f4WuhYxDv3HsjCb41AJBeXQpobeVgInjVjHnI3nHg74ZTUrog279mfCteTHG OG6w== ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=errors-to:list-subscribe:list-help:list-post:list-archive :list-unsubscribe:list-id:precedence:ui-outboundreport:sensitivity :importance:date:subject:to:from:message-id:mime-version :dkim-signature:arc-filter:dmarc-filter:delivered-to; bh=F7YXVsZJDRRm30YV6a468XKHxMLB8EjF88cTUSpaUrQ=; fh=+IEfvAe+9BRgPHWhQEl2uIBTtAiiGDh1ExRZeB5JJoc=; b=A5er3Ki8uGfWN4UA1Z4AZAvJ4CvK7fqtJHWl7orS6xvFSZk2r9CYCP344ORAPH9ASH MQ9vsP5HjszeXbvvuAc3hC6jQhgeRWm1RL4SJeUvZMwMCg4XHPVqX+SlHJRfKssVc2I4 q/+BSJ2pc6O8vxjC6tAkoyAlm7NwbKZh/+4P1aoBbXuErTmH7DNgL6+I94/fNiHoc0XG JPgyfMRhQfC4W1JXF56EJLdmyfH+INyjMpEbg/RPEuOYRDCbddK/gvDI3VuY32KcW2UI Pfkg5H0s3ZFjQ9145pOabeQnOYePHVcDH86cOX5z55HtCJU2Bg/UzYnts598XMOPcFiG vHqg==; dara=google.com ARC-Authentication-Results: i=2; mx.google.com; dkim=pass header.i=@gmx.de header.s=s31663417 header.b=gfnO3u7P; arc=pass (i=1); spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=QUARANTINE sp=QUARANTINE dis=NONE) header.from=gmx.de Received: from server2.sourceware.org (server2.sourceware.org. [8.43.85.97]) by mx.google.com with ESMTPS id gv7-20020a056214262700b0068f43478f32si8228951qvb.70.2024.02.27.13.01.08 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 27 Feb 2024 13:01:09 -0800 (PST) Received-SPF: pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) client-ip=8.43.85.97; Authentication-Results: mx.google.com; dkim=pass header.i=@gmx.de header.s=s31663417 header.b=gfnO3u7P; arc=pass (i=1); spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=QUARANTINE sp=QUARANTINE dis=NONE) header.from=gmx.de Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 9EB453858409 for ; Tue, 27 Feb 2024 21:01:08 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mout.gmx.net (mout.gmx.net [212.227.17.21]) by sourceware.org (Postfix) with ESMTPS id 039953858C31; Tue, 27 Feb 2024 21:00:15 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 039953858C31 Authentication-Results: sourceware.org; dmarc=pass (p=quarantine dis=none) header.from=gmx.de Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmx.de ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 039953858C31 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=212.227.17.21 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1709067617; cv=none; b=eXZit1nyh17B/ROePlHy3/WD3B5aRt3dbALyh0bJiOJE0kDoGQOYktyuJLNog7VbHAn5Fkot76FP7vjeo3qT/E7wa19oXZquhwFbJFykhI5mA/3GwEFJTzPhMo/91j3bHp1fPbGvq0FZu9OlKnQfeWKZ5d/8A4kKnMYx64qoWYQ= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1709067617; c=relaxed/simple; bh=LPaI/Q++6L1Y31Pn8/zYoKzBPWSEkNTZBafOeu0aF5o=; h=DKIM-Signature:MIME-Version:Message-ID:From:To:Subject:Date; b=xaANbT2zzA5UrDAUbhVihBbGPFY6LnXz2jU6U/NGYAVlWW/vav3tK5TkU3Re2tSBo3I6Cq8a3An1Y0mLJpSSec0RWfXEUPlsK/jqX5koU5gz+Xdk+aN8zzWbSLLORZVjr0qfi592wMKyxqC/kdHBSqexry0i/OYSkXYv0cVKbRs= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.de; s=s31663417; t=1709067614; x=1709672414; i=anlauf@gmx.de; bh=LPaI/Q++6L1Y31Pn8/zYoKzBPWSEkNTZBafOeu0aF5o=; h=X-UI-Sender-Class:From:To:Subject:Date; b=gfnO3u7PqYaIzd5K0eQvHgYUf36VgpXtt7Sh0R6GC2MkkSljmPLNy+kx72iY0hRM Rpw06TKFg/ttBBhYZvj3E1AzP9kmiy2tg8j6uN0rhtiLIwZpOi+gD6fkMn2nr5nJe RY9MgTU1XTHsstmyglXk4HMsf0PjuIwNQ968+JEk8PhYHrdnf4Ec8cAj3ibJGjqag ZU0wU38RJ9i+W+L4vtmMLN+3BLiw5hQb1KpAk5LgCqMNKsEuZmS2GxBt79tlswdVi +i3OKKPo3c6dnruhBNx2UfjrztJ7Pn31+H5i7mER0QDDIW8fPr7ValJeEbdcWQkGq QLdP0fbh1zuDUHSn1Q== X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a Received: from [79.251.7.31] ([79.251.7.31]) by web-mail.gmx.net (3c-app-gmx-bap21.server.lan [172.19.172.91]) (via HTTP); Tue, 27 Feb 2024 22:00:14 +0100 MIME-Version: 1.0 Message-ID: From: Harald Anlauf To: fortran , gcc-patches Subject: [PATCH] Fortran testsuite: fix invalid Fortran in testcase Date: Tue, 27 Feb 2024 22:00:14 +0100 Importance: normal Sensitivity: Normal X-Priority: 3 X-Provags-ID: V03:K1:PGIUqYVftzZoAAIebLycxoLTGxtMiMtRrnzuN2Yftfo5ByGJ7iEd3ctra5ai1REK52Gjg fTa/LFfGfASSDjPx++TAfvjujzs7nZKZDoAzpmSeq7kQx4ftU/WpRM8OvMnrWgEOuUwEgA5+drjt LH6T9EqGN6JC+Uy2XkFm3+ZzCaxF0VwoXwe0lGwjJsHZU8f63YJs5/AJ8M/w48fEhENOfS/d8MQN hi254495prgjMXic3eAmwFfN8Wjabql3qDXxaP7RHTi/+UqoQjfNq37PzGCDp8IfeK11pF/2gwye Lo= UI-OutboundReport: notjunk:1;M01:P0:5COmZnkX9+8=;ZeGb/LnH5pQmpeiC6oPARwIaUhf gfZbvw2l5T3GVjXYIDpSEvkUv1AH85xyEjYi2QZ+LRQXRIAndMFyAqgxdsD61LlESFu+CZngQ tmoM8KVaDJIu6jV7cI/zFbhmo6GWaROSewGicx3/Pdsf5VSZ1fytc8H8JWYvvXVVXjl3gJj9w Leesjj5dg1EhYARuNjwWgaCI+G5Q6Q/E/L50b8PVgxR1LxrDJalBHDRJ7eUqhYeUhL38+vTdF 0Aq1I1kDIbpy8J6CwRNHli1UoL9SOIXOAOU7yRrC4VR0WQO7ty/rtI1miXz0PZVsAZm03ev7n /Ay/LUfIMjESnllPWtlo0iJNNRVj36/dVmUeM8PRnmzjC65/ZwCOBuctyumVWTuLIfdfvCEFi 8kAQofi5bYr56n32mhXqR2Tcmdrim+OPfRpMcavw0N8ZpQA6YXyDCWC9XOs0Styw4wyjpPTmM ZvVSs6MV0XPeJaVRdguyDXd+/nQ3yEDsjpwvhZ6nCuWliWcJ1l1118tyI9APDBaz7CsO1vL4f HDR05bk9D1u5SlN6CdkFzU14U0y078IxsTn1n5uVV0yo9idPRiNU9xE+jMXMC41TTCWwXH8W4 eeqMtN+bufuxgbu5+lIz85HKZItWILjjnp8q/Za7PvE6UqRdyhL49rCmMB6A//M2zbT6Qy+Jg eWVyAjJhvxIl30FAZSi+aIuAKrHGg2HQgByBmNrXJz8PKX6ilHKh8NpeQKmbEWE= X-Spam-Status: No, score=-12.4 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_FROM, GIT_PATCH_0, RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H3, RCVD_IN_MSPIKE_WL, SPF_HELO_NONE, SPF_PASS, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org X-getmail-retrieved-from-mailbox: INBOX X-GMAIL-THRID: 1792087340081966832 X-GMAIL-MSGID: 1792087340081966832 Dear all, the attached patch fixes invalid Fortran in testcase gfortran.dg/pr101026.f, which might prohibit progress in fixing pr111781. (Note that the testcase was for a tree-optimizer issue, not the Fortran frontend.) OK for mainline? Will commit within 24h unless there are comments. Thanks, Harald From 75724b6b42a1c46383d8e6deedbfb8d2ebd0fa12 Mon Sep 17 00:00:00 2001 From: Harald Anlauf Date: Tue, 27 Feb 2024 21:51:53 +0100 Subject: [PATCH] Fortran testsuite: fix invalid Fortran in testcase gcc/testsuite/ChangeLog: * gfortran.dg/pr101026.f: Let variables used in specification expression be passed as dummy arguments --- gcc/testsuite/gfortran.dg/pr101026.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/testsuite/gfortran.dg/pr101026.f b/gcc/testsuite/gfortran.dg/pr101026.f index 9576d8802ca..e05e21c898a 100644 --- a/gcc/testsuite/gfortran.dg/pr101026.f +++ b/gcc/testsuite/gfortran.dg/pr101026.f @@ -1,6 +1,6 @@ ! { dg-do compile } ! { dg-options "-Ofast -frounding-math" } - SUBROUTINE PASSB4 (CC,CH) + SUBROUTINE PASSB4 (CC,CH,IDO,L1) DIMENSION CC(IDO,4,L1), CH(IDO,L1,*) DO 103 I=2,IDO,2 TI4 = CC0-CC(I,4,K) -- 2.35.3