From patchwork Wed Feb 24 21:58:36 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Julian Brown X-Patchwork-Id: 1444071 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=2620:52:3:1:0:246e:9693:128c; helo=sourceware.org; envelope-from=gcc-patches-bounces@gcc.gnu.org; receiver=) Received: from sourceware.org (server2.sourceware.org [IPv6:2620:52:3:1:0:246e:9693:128c]) (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 4Dm8vM35Rxz9sBy for ; Thu, 25 Feb 2021 08:58:55 +1100 (AEDT) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 5E357395B818; Wed, 24 Feb 2021 21:58:51 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from esa1.mentor.iphmx.com (esa1.mentor.iphmx.com [68.232.129.153]) by sourceware.org (Postfix) with ESMTPS id 811FD3959E65; Wed, 24 Feb 2021 21:58:48 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 811FD3959E65 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=codesourcery.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=Julian_Brown@mentor.com IronPort-SDR: XZyj+xBlVqA6/bEgsVnPkGyqkXiQudE7OD1Gb7OQzruqjdm6t3iR+Qf1oNXQbpChd1ArH+J7Ru hdqs+CvIZnOf9n/IxpsMCu+Ouh5KEVjawBQKoG6dweeq6cVrEwwO07DZyu6TjqrvpGN5zafslT piyoJ2OCaApmtvluBaqZHqWtpqeJNR8GLr7Gmq4GYslrIZcOj00Zt5NKF8jnnC7J2BfGjy9y5s rrwbNrc5kKH2o6Kvbc2532RaLhvaXIkosC/vmwVAvMRvMcjw0ZPq4ddSiuUfPa59kQNkFvDE6i fSo= X-IronPort-AV: E=Sophos;i="5.81,203,1610438400"; d="scan'208";a="60790698" Received: from orw-gwy-02-in.mentorg.com ([192.94.38.167]) by esa1.mentor.iphmx.com with ESMTP; 24 Feb 2021 13:58:47 -0800 IronPort-SDR: B/r9P0Dk051v64whwU5NuzvJNzTAl1sVPBp7ysZRgGkdp3e7KhMeg6F0YeLosSlshc0RUXgTCT E8c/4O6lwvyRT4pSt/hJfYc9l8W2FbUpdZArXOJTkVim9lDnQR9fG1C1CMWL6c7NMQZ3um22XO cvuDNjZMn88COyvEYLv3YID5JDg2HwoaMoxUR9xQI9yv6xN/hkdaarOvbEXs3ej6jXwiNDUVhK 93WlfcwTY+4RCHdUMMgK2KoT1rGwtKx5ZEHA1QaTYAFKbLvp7rDxfBcNaAlMW+WPKnRSGlo3oc T1M= From: Julian Brown To: Subject: [PATCH 5/7] [og10] Fortran: %re/%im fixes for OpenMP/OpenACC + gfc_is_simplify_contiguous Date: Wed, 24 Feb 2021 13:58:36 -0800 Message-ID: <20210224215838.130807-1-julian@codesourcery.com> X-Mailer: git-send-email 2.29.2 MIME-Version: 1.0 X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: SVR-IES-MBX-04.mgc.mentorg.com (139.181.222.4) To svr-ies-mbx-01.mgc.mentorg.com (139.181.222.1) X-Spam-Status: No, score=-12.0 required=5.0 tests=BAYES_00, GIT_PATCH_0, HEADER_FROM_DIFFERENT_DOMAINS, KAM_DMARC_STATUS, 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: Tobias Burnus , fortran@gcc.gnu.org Errors-To: gcc-patches-bounces@gcc.gnu.org Sender: "Gcc-patches" From: Tobias Burnus gcc/fortran/ChangeLog: * expr.c (gfc_is_simplify_contiguous): Handle REF_INQUIRY, i.e. %im and %re which are EXPR_VARIABLE. * openmp.c (resolve_omp_clauses): Diagnose %re/%im explicitly. gcc/testsuite/ChangeLog: * gfortran.dg/goacc/ref_inquiry.f90: New test. * gfortran.dg/gomp/ref_inquiry.f90: New test. (cherry picked from commit 799478b8914c438f7a33eb319efbae69c81f2111) --- gcc/fortran/ChangeLog.omp | 8 +++ gcc/fortran/expr.c | 2 + gcc/fortran/openmp.c | 8 +++ gcc/testsuite/ChangeLog.omp | 7 +++ .../gfortran.dg/goacc/ref_inquiry.f90 | 56 +++++++++++++++++++ .../gfortran.dg/gomp/ref_inquiry.f90 | 39 +++++++++++++ 6 files changed, 120 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/goacc/ref_inquiry.f90 create mode 100644 gcc/testsuite/gfortran.dg/gomp/ref_inquiry.f90 diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp index 09c2bb855c88..f99a11316f52 100644 --- a/gcc/fortran/ChangeLog.omp +++ b/gcc/fortran/ChangeLog.omp @@ -1,3 +1,11 @@ +2021-02-24 Tobias Burnus + + Backport from mainline + + * expr.c (gfc_is_simplify_contiguous): Handle REF_INQUIRY, i.e. + %im and %re which are EXPR_VARIABLE. + * openmp.c (resolve_omp_clauses): Diagnose %re/%im explicitly. + 2021-02-24 Tobias Burnus Backport from mainline diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 569f4d9bf066..6cda947cd568 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -5837,6 +5837,8 @@ gfc_is_simply_contiguous (gfc_expr *expr, bool strict, bool permit_element) part_ref = ref; else if (ref->type == REF_SUBSTRING) return false; + else if (ref->type == REF_INQUIRY) + return false; else if (ref->u.ar.type != AR_ELEMENT) ar = &ref->u.ar; } diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index a7592f0545d9..8d77f9e73510 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -4984,6 +4984,14 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, && array_ref->next->type == REF_SUBSTRING))) gfc_error ("Unexpected substring reference in %s clause " "at %L", name, &n->where); + else if (array_ref && array_ref->type == REF_INQUIRY) + { + gcc_assert (array_ref->u.i == INQUIRY_RE + || array_ref->u.i == INQUIRY_IM); + gfc_error ("Unexpected complex-parts designator " + "reference in %s clause at %L", + name, &n->where); + } else if (!resolved || n->expr->expr_type != EXPR_VARIABLE || array_ref->next diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp index d012e9e75b4e..257981890982 100644 --- a/gcc/testsuite/ChangeLog.omp +++ b/gcc/testsuite/ChangeLog.omp @@ -1,3 +1,10 @@ +2021-02-24 Tobias Burnus + + Backport from mainline + + * gfortran.dg/goacc/ref_inquiry.f90: New test. + * gfortran.dg/gomp/ref_inquiry.f90: New test. + 2021-02-24 Tobias Burnus Backport from mainline diff --git a/gcc/testsuite/gfortran.dg/goacc/ref_inquiry.f90 b/gcc/testsuite/gfortran.dg/goacc/ref_inquiry.f90 new file mode 100644 index 000000000000..69dd38e51974 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/ref_inquiry.f90 @@ -0,0 +1,56 @@ +! Check for %re, ...%im, ...%kind, ...%len +! Cf. also OpenMP's ../gomp/ref_inquiry.f90 +! Cf. OpenACC spec issue 346 +! +implicit none +type t + integer :: i + character :: c + complex :: z + complex :: zz(5) +end type t + +integer :: i +character(kind=4, len=5) :: c +complex :: z, zz(5) +type(t) :: x + +print *, is_contiguous(zz(:)%re) + +! inquiry function; expr_type != EXPR_VARIABLE: +!$acc enter data copyin(i%kind, c%len) ! { dg-error "not a proper array section" } +!$acc enter data copyin(x%i%kind) ! { dg-error "not a proper array section" } +!$acc enter data copyin(x%c%len) ! { dg-error "not a proper array section" } +!$acc update self(i%kind, c%len) ! { dg-error "not a proper array section" } +!$acc update self(x%i%kind) ! { dg-error "not a proper array section" } +!$acc update self(x%c%len) ! { dg-error "not a proper array section" } + +! EXPR_VARIABLE +!$acc enter data copyin(z%re) ! { dg-error "Unexpected complex-parts designator" } +!$acc enter data copyin(z%im) ! { dg-error "Unexpected complex-parts designator" } +!$acc enter data copyin(zz%re) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +!$acc enter data copyin(zz%im) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } + +!$acc enter data copyin(x%z%re) ! { dg-error "Unexpected complex-parts designator" } +!$acc enter data copyin(x%z%im) ! { dg-error "Unexpected complex-parts designator" } +!$acc enter data copyin(x%zz%re) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +!$acc enter data copyin(x%zz%im) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } + +!$acc update self(z%re) ! { dg-error "Unexpected complex-parts designator" } +!$acc update self(z%im) ! { dg-error "Unexpected complex-parts designator" } +!$acc update self(zz%re) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +!$acc update self(zz%im) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } + +!$acc update self(x%z%re) ! { dg-error "Unexpected complex-parts designator" } +!$acc update self(x%z%im) ! { dg-error "Unexpected complex-parts designator" } +!$acc update self(x%zz%re) ! { dg-error "is not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +!$acc update self(x%zz%im) ! { dg-error "is not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +end diff --git a/gcc/testsuite/gfortran.dg/gomp/ref_inquiry.f90 b/gcc/testsuite/gfortran.dg/gomp/ref_inquiry.f90 new file mode 100644 index 000000000000..374610405601 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/ref_inquiry.f90 @@ -0,0 +1,39 @@ +! Check for %re, ...%im, ...%kind, ...%len +! Cf. also OpenACC's ../goacc/ref_inquiry.f90 +! Cf. also OpenMP spec issue 2661 +implicit none +type t + integer :: i + character :: c + complex :: z + complex :: zz(5) +end type t + +integer :: i +character(kind=4, len=5) :: c +complex :: z, zz(5) +type(t) :: x + +print *, is_contiguous(zz(:)%re) + +! inquiry function; expr_type != EXPR_VARIABLE: +!$omp target enter data map(to: i%kind, c%len) ! { dg-error "not a proper array section" } +!$omp target enter data map(to: x%i%kind) ! { dg-error "not a proper array section" } +!$omp target enter data map(to: x%c%len) ! { dg-error "not a proper array section" } + +! EXPR_VARIABLE +!$omp target enter data map(to: z%re) ! { dg-error "Unexpected complex-parts designator" } +!$omp target enter data map(to: z%im) ! { dg-error "Unexpected complex-parts designator" } +!$omp target enter data map(to: zz%re) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +!$omp target enter data map(to: zz%im) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } + +!$omp target enter data map(to: x%z%re) ! { dg-error "Unexpected complex-parts designator" } +!$omp target enter data map(to: x%z%im) ! { dg-error "Unexpected complex-parts designator" } +!$omp target enter data map(to: x%zz%re) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } +!$omp target enter data map(to: x%zz%im) ! { dg-error "not a proper array section" } + ! { dg-error "Array is not contiguous" "" { target *-*-* } .-1 } + +end