From f82d1c5db25c63e203e6e1cbbcedfd3bbd0870d8 Mon Sep 17 00:00:00 2001 From: Julian Brown Date: Tue, 3 Sep 2019 07:57:05 -0700 Subject: [PATCH] [og9] Fix libgomp.oacc-fortran/lib-13.f90 async bug libgomp/ * testsuite/libgomp.oacc-fortran/lib-13.f90: End data region after wait API calls. (cherry picked from openacc-gcc-9-branch commit c8992567df068c321e669ae27b8627f98dd08d25) --- 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 f9d8e6ecd397..c7ef40e922c7 100644 --- a/libgomp/ChangeLog.omp +++ b/libgomp/ChangeLog.omp @@ -1,3 +1,8 @@ +2019-09-05 Julian Brown + + * testsuite/libgomp.oacc-fortran/lib-13.f90: End data region after + wait API calls. + 2019-08-13 Julian Brown * plugin/plugin-gcn.c (queue_push_callback): Wait on queue-full diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 index da944c35de94..ea35d71b789c 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.) call abort if (acc_async_test (2) .neqv. .TRUE.) call abort -- 2.47.2