public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc/devel/omp/gcc-13] XFAIL some OpenACC 'kernels' confusion in 'libgomp.oacc-fortran/declare-allocatable-1*.f90'
@ 2023-05-19 16:50 Kwok Yeung
0 siblings, 0 replies; only message in thread
From: Kwok Yeung @ 2023-05-19 16:50 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:300c350fbeeb38467b7048e28e3fc26a6b3c42d6
commit 300c350fbeeb38467b7048e28e3fc26a6b3c42d6
Author: Thomas Schwinge <thomas@codesourcery.com>
Date: Wed Nov 2 15:44:46 2022 +0100
XFAIL some OpenACC 'kernels' confusion in 'libgomp.oacc-fortran/declare-allocatable-1*.f90'
Seen only for certain optimizations levels, as indicated; so there are a few
XPASSes otherwise.
There are neither OpenACC 'kernels' constructs here, nor other 'loop'
constructs with 'auto' clause, so I'm not sure what's going on.
libgomp/
* testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90:
XFAIL some OpenACC 'kernels' confusion.
* testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90:
Likewise.
* testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90:
Likewise.
Diff:
---
libgomp/ChangeLog.omp | 49 ++++++++++++++++++++++
.../declare-allocatable-1-directive.f90 | 10 +++++
.../declare-allocatable-1-runtime.f90 | 10 +++++
.../libgomp.oacc-fortran/declare-allocatable-1.f90 | 10 +++++
4 files changed, 79 insertions(+)
diff --git a/libgomp/ChangeLog.omp b/libgomp/ChangeLog.omp
index 7764ddeab25..08ffe69ef56 100644
--- a/libgomp/ChangeLog.omp
+++ b/libgomp/ChangeLog.omp
@@ -1,3 +1,52 @@
+2022-11-02 Tobias Burnus <tobias@codesourcery.com>
+
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90:
+ XFAIL some OpenACC 'kernels' confusion.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90:
+ Likewise.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90:
+ Likewise.
+
+ Backported from master:
+ 2022-11-02 Thomas Schwinge <thomas@codesourcery.com>
+
+ PR libgomp/106643
+ PR fortran/96668
+ * oacc-mem.c (goacc_enter_data_internal): Support
+ OpenACC 'declare create' with Fortran allocatable arrays, part II.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-array_descriptor-1-directive.f90:
+ Adjust.
+ * testsuite/libgomp.oacc-fortran/pr106643-1.f90: New.
+
+ Backported from master:
+ 2022-11-02 Thomas Schwinge <thomas@codesourcery.com>
+
+ PR libgomp/106643
+ * oacc-mem.c (goacc_enter_data_internal): Support
+ OpenACC 'declare create' with Fortran allocatable arrays, part I.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90:
+ New.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-array_descriptor-1-directive.f90:
+ New.
+
+ Backported from master:
+ 2022-11-02 Thomas Schwinge <thomas@codesourcery.com>
+
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-array_descriptor-1-runtime.f90:
+ New.
+
+ Backported from master:
+ 2022-11-02 Thomas Schwinge <thomas@codesourcery.com>
+
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90:
+ New.
+
+ Backported from master:
+ 2022-11-02 Cesar Philippidis <cesar@codesourcery.com>
+ Thomas Schwinge <thomas@codesourcery.com>
+
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90: New.
+
2022-11-02 Tobias Burnus <tobias@codesourcery.com>
* testsuite/libgomp.fortran/target-enter-data-3a.f90: New test.
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90
index 759873bad67..6dd6f480519 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90
@@ -79,6 +79,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = i * a
@@ -152,6 +154,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O2', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
@@ -162,6 +166,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = fun1 (i) ! { dg-line l[incr c] }
@@ -193,6 +199,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
@@ -250,6 +258,8 @@ subroutine sub2
!$acc parallel loop ! { dg-line l[incr c] }
! { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90
index e4cb9c378a3..f86413b6b11 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90
@@ -79,6 +79,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = i * a
@@ -152,6 +154,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O2', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
@@ -162,6 +166,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = fun1 (i) ! { dg-line l[incr c] }
@@ -193,6 +199,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
@@ -250,6 +258,8 @@ subroutine sub2
!$acc parallel loop ! { dg-line l[incr c] }
! { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90
index 40cfde34aae..85066ea4607 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90
@@ -79,6 +79,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = i * a
@@ -147,6 +149,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O2', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
@@ -157,6 +161,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = fun1 (i) ! { dg-line l[incr c] }
@@ -186,6 +192,8 @@ program test
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
@@ -241,6 +249,8 @@ subroutine sub2
!$acc parallel loop ! { dg-line l[incr c] }
! { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-05-19 16:50 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-05-19 16:50 [gcc/devel/omp/gcc-13] XFAIL some OpenACC 'kernels' confusion in 'libgomp.oacc-fortran/declare-allocatable-1*.f90' Kwok Yeung
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).