From patchwork Fri Nov 13 22:06:53 2020 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Thomas Schwinge X-Patchwork-Id: 1400158 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=8.43.85.97; helo=sourceware.org; envelope-from=gcc-patches-bounces@gcc.gnu.org; receiver=) Authentication-Results: ozlabs.org; dmarc=none (p=none dis=none) header.from=codesourcery.com Received: from sourceware.org (server2.sourceware.org [8.43.85.97]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 4CXsyM3gk6z9sPB for ; Sat, 14 Nov 2020 09:07:07 +1100 (AEDT) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 23C4139518AE; Fri, 13 Nov 2020 22:07:05 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from esa2.mentor.iphmx.com (esa2.mentor.iphmx.com [68.232.141.98]) by sourceware.org (Postfix) with ESMTPS id 847D7393C86C; Fri, 13 Nov 2020 22:07:02 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 847D7393C86C Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=codesourcery.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=Thomas_Schwinge@mentor.com IronPort-SDR: X86CsJ2Im87fsL2pJdiYBHf+z0AAeROUeH+kN4qfFb+fyw0gD1qhG++QRiTImZYkbBtxRXdLSD zhtMMtOLSIuSm0YDUVq8L2WzesGgJIlEByz//2dRiWxJp6yLOyZSxsfYoWGPOEzH2KOxf74pX1 Mw26b8qoQJKhzoUqf39YP9LvijLwTgP+QaoiF70LtC6diJFLHUlOnysTTqbbKmYy6nbCcbHHrx gV8iR1hynvK1XX0qvnqMfkPi936ESZsR5oDoV5g40LheMCgLQqCMur2ihjOam3i7QD2XRpnD+R hSA= X-IronPort-AV: E=Sophos;i="5.77,476,1596528000"; d="scan'208,223";a="55084796" Received: from orw-gwy-02-in.mentorg.com ([192.94.38.167]) by esa2.mentor.iphmx.com with ESMTP; 13 Nov 2020 14:07:01 -0800 IronPort-SDR: XcEegQtZrmbQZzj3XMROkHRT5bluV3MUS87jHDEsozRmVpcnVbiu2Cgz9Y+taws0b+k/BqKBXA HSD5ea3sv/ALk+gKxf4Zdsg3R7Q9/qfikxQoPqZ0FALgcL8wBlETe79U2BST5/TA0OnToO2jIA 3roL5eUfDtdLdBq46lEtky7eAYLpFxFaC0eYl+gS4FlB5Pes4xkfvFiwt3xTL7n6NbCVeFsBGv w3nOKtgGvcetBJPGjJFVHiYnvgpjIcVCARiVVDaJW7KlJxhJy7Ta4Z6U2xPCQ8Kulo8ZOjPI37 LRE= From: Thomas Schwinge To: Subject: Add 'libgomp.oacc-fortran/pr94358-1.f90' [PR94358] (was: [PATCH, OpenACC] Rework OpenACC Fortran DO loop initialization) In-Reply-To: <31e3dfc5-1bbe-0d11-c7c8-16a0cefa0b45@mentor.com> References: <561D65A9.3060903@codesourcery.com> <5695AD6B.5060802@codesourcery.com> <31e3dfc5-1bbe-0d11-c7c8-16a0cefa0b45@mentor.com> User-Agent: Notmuch/0.29.3+94~g74c3f1b (https://notmuchmail.org) Emacs/26.3 (x86_64-pc-linux-gnu) Date: Fri, 13 Nov 2020 23:06:53 +0100 Message-ID: <87ima8di82.fsf@euler.schwinge.homeip.net> MIME-Version: 1.0 X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: svr-ies-mbx-06.mgc.mentorg.com (139.181.222.6) To svr-ies-mbx-01.mgc.mentorg.com (139.181.222.1) X-Spam-Status: No, score=-13.3 required=5.0 tests=BAYES_00, GIT_PATCH_0, HEADER_FROM_DIFFERENT_DOMAINS, KAM_DMARC_STATUS, RCVD_IN_DNSWL_LOW, SPF_HELO_PASS, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: fortran@gcc.gnu.org Errors-To: gcc-patches-bounces@gcc.gnu.org Sender: "Gcc-patches" Hi! The whole topic of GCC PR94358 "[OMP] Privatize internal array variables introduced by the Fortran FE" is yet to be resolved, but we may already now add Gergő's testcase: On 2019-01-25T15:13:48+0100, Gergö Barany wrote: > --- /dev/null > +++ b/libgomp/testsuite/libgomp.oacc-fortran/initialize_kernels_loops.f90 > @@ -0,0 +1,31 @@ > +[...] ... to document the status quo, and so that it may help highlight any behavioral changes later on. I've pushed "Add 'libgomp.oacc-fortran/pr94358-1.f90' [PR94358]" to master branch in commit d1ba078d9bcc3457d36ba12695cfef29eb3ca942, see attached. Grüße Thomas ----------------- Mentor Graphics (Deutschland) GmbH, Arnulfstraße 201, 80634 München / Germany Registergericht München HRB 106955, Geschäftsführer: Thomas Heurung, Alexander Walter From d1ba078d9bcc3457d36ba12695cfef29eb3ca942 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gerg=C3=B6=20Barany?= Date: Mon, 21 Jan 2019 03:08:57 -0800 Subject: [PATCH] Add 'libgomp.oacc-fortran/pr94358-1.f90' [PR94358] Document status quo re PR94358 "[OMP] Privatize internal array variables introduced by the Fortran FE". libgomp/ PR fortran/94358 * testsuite/libgomp.oacc-fortran/pr94358-1.f90: New. Co-authored-by: Thomas Schwinge --- .../libgomp.oacc-fortran/pr94358-1.f90 | 34 +++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 new file mode 100644 index 00000000000..5013c5ba04b --- /dev/null +++ b/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 @@ -0,0 +1,34 @@ +! { dg-do run } +! { dg-additional-options "-fopt-info-omp-all" } + +subroutine kernel(lo, hi, a, b, c) + implicit none + integer :: lo, hi, i + real, dimension(lo:hi) :: a, b, c + + !$acc kernels copyin(lo, hi) ! { dg-optimized "assigned OpenACC seq loop parallelism" } + !$acc loop independent + do i = lo, hi + b(i) = a(i) + end do + !$acc loop independent + do i = lo, hi + c(i) = b(i) + end do + !$acc end kernels +end subroutine kernel + +program main + integer :: n = 20 + real, dimension(1:20) :: a, b, c + + a(:) = 1 + b(:) = 2 + c(:) = 3 + + call kernel(1, n, a, b, c) + + do i = 1, n + if (c(i) .ne. 1) call abort + end do +end program main -- 2.17.1