https://gcc.gnu.org/g:8998cc60c1cbbdef603090eab63e5835bf071d41
commit 8998cc60c1cbbdef603090eab63e5835bf071d41
Author: Julian Brown <jul...@codesourcery.com>
Date: Tue Sep 3 07:57:05 2019 -0700
Fix libgomp.oacc-fortran/lib-13.f90 async bug
libgomp/
* testsuite/libgomp.oacc-fortran/lib-13.f90: End data region after
wait API calls.
Diff:
---
libgomp/ChangeLog.omp | 5 +++++
libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 | 3 +--
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/libgomp/ChangeLog.omp b/libgomp/ChangeLog.omp
index 0b91f66735d..0aa2e823b36 100644
--- a/libgomp/ChangeLog.omp
+++ b/libgomp/ChangeLog.omp
@@ -1,3 +1,8 @@
+2019-09-05 Julian Brown <jul...@codesourcery.com>
+
+ * testsuite/libgomp.oacc-fortran/lib-13.f90: End data region after
+ wait API calls.
+
2019-08-08 Julian Brown <jul...@codesourcery.com>
* plugin/plugin-gcn.c (GOMP_OFFLOAD_openacc_exec_params,
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
index deb2c288604..f6bd27a4701 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
@@ -19,11 +19,10 @@ program main
end do
!$acc end parallel
end do
- !$acc end data
call acc_wait_all_async (nprocs + 1)
-
call acc_wait (nprocs + 1)
+ !$acc end data
if (acc_async_test (1) .neqv. .TRUE.) stop 1
if (acc_async_test (2) .neqv. .TRUE.) stop 2
