From 26cbcfe5fce57b090b0f2336aad27d84b725f760 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 18 Mar 2020 16:28:08 +0100 Subject: Fix libgomp.oacc-fortran/atomic_capture-1.f90 2020-03-18 Julian Brown Tobias Burnus * testsuite/libgomp.oacc-fortran/atomic_capture-1.f90: Really make it work concurrently. --- libgomp/ChangeLog | 6 +++++ .../libgomp.oacc-fortran/atomic_capture-1.f90 | 30 +++++++++++++++++++--- 2 files changed, 32 insertions(+), 4 deletions(-) (limited to 'libgomp') diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 3dbe94b..9a1065f 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,9 @@ +2020-03-18 Julian Brown + Tobias Burnus + + * testsuite/libgomp.oacc-fortran/atomic_capture-1.f90: Really make + it work concurrently. + 2020-03-18 Tobias Burnus * testsuite/libgomp.oacc-c++/firstprivate-mappings-1.C: Add diff --git a/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 index 5a4a1e0..536b3f0 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 @@ -275,8 +275,9 @@ program main if (ltmp .neqv. .not. lexp) STOP 33 if (lgot .neqv. lexp) STOP 34 - igot = 1 + igot = 0 iexp = N + iarr = -42 !$acc parallel loop copy (igot, itmp) do i = 1, N @@ -287,13 +288,24 @@ program main end do !$acc end parallel loop + if (igot /= N) stop 107 + itmp = 0 + do i = 1, N + if (iarr(i) == 0) then + itmp = i + exit + end if + end do + ! At most one iarr element can be 0. do i = 1, N - if (.not. (1 <= iarr(i) .and. iarr(i) < iexp)) STOP 35 + if ((iarr(i) == 0 .and. i /= itmp) & + .or. iarr(i) < 0 .or. iarr(i) >= N) STOP 35 end do if (igot /= iexp) STOP 36 - igot = N + igot = N + 1 iexp = 1 + iarr = -42 !$acc parallel loop copy (igot, itmp) do i = 1, N @@ -304,8 +316,18 @@ program main end do !$acc end parallel loop + if (igot /= 1) stop 108 + itmp = N + 1 + ! At most one iarr element can be N+1. + do i = 1, N + if (iarr(i) == N + 1) then + itmp = i + exit + end if + end do do i = 1, N - if (.not. (iarr(i) == 1 .or. iarr(i) == N)) STOP 37 + if ((iarr(i) == N + 1 .and. i /= itmp) & + .or. iarr(i) <= 0 .or. iarr(i) > N + 1) STOP 37 end do if (igot /= iexp) STOP 38 -- cgit v1.1