git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix atomic_capture-1.f90 testcase 

The testcase had invalid assumptions about which loop iterations would run
first and last.

libgomp/ChangeLog

	* testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 (main): Adjust
	expected results.
This commit is contained in:
Andrew Stubbs 2020-11-11 12:50:34 +00:00
parent a46fa6510d
commit 52ce50d6c5
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90
View File

@ -299,7 +299,7 @@ program main
! At most one iarr element can be 0. ! At most one iarr element can be 0.
do i = 1, N do i = 1, N
if ((iarr(i) == 0 .and. i /= itmp) & if ((iarr(i) == 0 .and. i /= itmp) &
.or. iarr(i) < 0 .or. iarr(i) >= N) STOP 35 .or. iarr(i) < 0 .or. iarr(i) > N) STOP 35
end do end do
if (igot /= iexp) STOP 36 if (igot /= iexp) STOP 36
@ -336,7 +336,7 @@ program main
!$acc parallel loop copy (igot, itmp) !$acc parallel loop copy (igot, itmp)
do i = 0, N - 1 do i = 0, N - 1
iexpr = ibclr (-2, i) iexpr = ibclr (-1, i)
!$acc atomic capture !$acc atomic capture
iarr(i) = igot iarr(i) = igot
igot = iand (igot, iexpr) igot = iand (igot, iexpr)
@ -345,7 +345,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) < 0)) STOP 39 if (.not. (popcnt(iarr(i - 1)) > 0)) STOP 39
end do end do
if (igot /= iexp) STOP 40 if (igot /= iexp) STOP 40
@ -363,7 +363,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) >= 0)) STOP 41 if (.not. (popcnt(iarr(i - 1)) < 32)) STOP 41
end do end do
if (igot /= iexp) STOP 42 if (igot /= iexp) STOP 42
@ -381,7 +381,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) < 0)) STOP 43 if (.not. (popcnt(iarr(i - 1)) > 0)) STOP 43
end do end do
if (igot /= iexp) STOP 44 if (igot /= iexp) STOP 44
@ -398,7 +398,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (1 <= iarr(i) .and. iarr(i) < iexp)) STOP 45 if (.not. (1 <= iarr(i) .and. iarr(i) <= iexp)) STOP 45
end do end do
if (igot /= iexp) STOP 46 if (igot /= iexp) STOP 46
@ -415,7 +415,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i) == 1 .or. iarr(i) == N)) STOP 47 if (.not. (iarr(i) >= 1 .or. iarr(i) <= N)) STOP 47
end do end do
if (igot /= iexp) STOP 48 if (igot /= iexp) STOP 48
@ -424,7 +424,7 @@ program main
!$acc parallel loop copy (igot, itmp) !$acc parallel loop copy (igot, itmp)
do i = 0, N - 1 do i = 0, N - 1
iexpr = ibclr (-2, i) iexpr = ibclr (-1, i)
!$acc atomic capture !$acc atomic capture
iarr(i) = igot iarr(i) = igot
igot = iand (iexpr, igot) igot = iand (iexpr, igot)
@ -433,7 +433,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) < 0)) STOP 49 if (.not. (popcnt(iarr(i - 1)) > 0)) STOP 49
end do end do
if (igot /= iexp) STOP 50 if (igot /= iexp) STOP 50
@ -451,7 +451,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) >= 0)) STOP 51 if (.not. (popcnt(iarr(i - 1)) < 32)) STOP 51
end do end do
if (igot /= iexp) STOP 52 if (igot /= iexp) STOP 52
@ -469,7 +469,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) < 0)) STOP 53 if (.not. (popcnt(iarr(i - 1)) > 0)) STOP 53
end do end do
if (igot /= iexp) STOP 54 if (igot /= iexp) STOP 54
@ -755,7 +755,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i) == iexp)) STOP 89 if (.not. (iarr(i) <= i)) STOP 89
end do end do
if (igot /= iexp) STOP 90 if (igot /= iexp) STOP 90
@ -773,7 +773,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) <= 0)) STOP 91 if (.not. (popcnt(iarr(i - 1)) < 32)) STOP 91
end do end do
if (igot /= iexp) STOP 92 if (igot /= iexp) STOP 92
@ -791,7 +791,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) >= -1)) STOP 93 if (.not. (popcnt(iarr(i - 1)) > 0)) STOP 93
end do end do
if (igot /= iexp) STOP 94 if (igot /= iexp) STOP 94
@ -809,7 +809,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) <= 0)) STOP 95 if (.not. (popcnt(iarr(i - 1)) < 32)) STOP 95
end do end do
if (igot /= iexp) STOP 96 if (igot /= iexp) STOP 96
@ -843,7 +843,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i) == iexp )) STOP 99 if (.not. (iarr(i) <= i)) STOP 99
end do end do
if (igot /= iexp) STOP 100 if (igot /= iexp) STOP 100
@ -861,7 +861,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) <= 0)) STOP 101 if (.not. (popcnt(iarr(i - 1)) < 32)) STOP 101
end do end do
if (igot /= iexp) STOP 102 if (igot /= iexp) STOP 102
@ -879,7 +879,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) >= iexp)) STOP 103 if (.not. (popcnt(iarr(i - 1)) > 0)) STOP 103
end do end do
if (igot /= iexp) STOP 104 if (igot /= iexp) STOP 104
@ -897,7 +897,7 @@ program main
!$acc end parallel loop !$acc end parallel loop
do i = 1, N do i = 1, N
if (.not. (iarr(i - 1) <= iexp)) STOP 105 if (.not. (popcnt(iarr(i - 1)) < 32)) STOP 105
end do end do
if (igot /= iexp) STOP 106 if (igot /= iexp) STOP 106