FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix libgomp.oacc-fortran/atomic_capture-1.f90

Browse source 
2020-03-18  Julian Brown <julian@codesourcery.com>
            Tobias Burnus  <tobias@codesourcery.com>

        * testsuite/libgomp.oacc-fortran/atomic_capture-1.f90: Really make
        it work concurrently.
This commit is contained in:
Tobias Burnus 2020-03-18 16:28:08 +01:00
parent 884d914111
commit 26cbcfe5fc
2 changed files with 32 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgomp/ChangeLog
View file

@ -1,3 +1,9 @@
2020-03-18 Julian Brown <julian@codesourcery.com>
Tobias Burnus <tobias@codesourcery.com>
* testsuite/libgomp.oacc-fortran/atomic_capture-1.f90: Really make
it work concurrently.
2020-03-18 Tobias Burnus <tobias@codesourcery.com> 2020-03-18 Tobias Burnus <tobias@codesourcery.com>
* testsuite/libgomp.oacc-c++/firstprivate-mappings-1.C: Add * testsuite/libgomp.oacc-c++/firstprivate-mappings-1.C: Add

30
libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90
View file

@ -275,8 +275,9 @@ program main
if (ltmp .neqv. .not. lexp) STOP 33 if (ltmp .neqv. .not. lexp) STOP 33
if (lgot .neqv. lexp) STOP 34 if (lgot .neqv. lexp) STOP 34
igot = 1 igot = 0
iexp = N iexp = N
iarr = -42
!$acc parallel loop copy (igot, itmp) !$acc parallel loop copy (igot, itmp)
do i = 1, N do i = 1, N
@ -287,13 +288,24 @@ program main
end do end do
!$acc end parallel loop !$acc end parallel loop
if (igot /= N) stop 107
itmp = 0
do i = 1, N do i = 1, N
if (.not. (1 <= iarr(i) .and. iarr(i) < iexp)) STOP 35 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 ((iarr(i) == 0 .and. i /= itmp) &
.or. iarr(i) < 0 .or. iarr(i) >= N) STOP 35
end do end do
if (igot /= iexp) STOP 36 if (igot /= iexp) STOP 36
igot = N igot = N + 1
iexp = 1 iexp = 1
iarr = -42
!$acc parallel loop copy (igot, itmp) !$acc parallel loop copy (igot, itmp)
do i = 1, N do i = 1, N
@ -304,8 +316,18 @@ program main
end do end do
!$acc end parallel loop !$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 do i = 1, N
if (.not. (iarr(i) == 1 .or. iarr(i) == N)) STOP 37 if (iarr(i) == N + 1) then
itmp = i
exit
end if
end do
do i = 1, N
if ((iarr(i) == N + 1 .and. i /= itmp) &
.or. iarr(i) <= 0 .or. iarr(i) > N + 1) STOP 37
end do end do
if (igot /= iexp) STOP 38 if (igot /= iexp) STOP 38