OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

reduction3.f90: Change -2147483648 to -huge(i)-1 to avoid overflow. 

2006-09-08  Steven G. Kargl  <kargl@gcc.gnu.org>

	* testsuite/libgomp.fortran/reduction3.f90: Change
	-2147483648 to -huge(i)-1 to avoid overflow.
	* testsuite/libgomp.fortran/reduction4.f90: Change
	Z'ffffffff' to not(0) to avoid overflow.

From-SVN: r116786
This commit is contained in:
Steven G. Kargl 2006-09-08 20:57:55 +00:00
parent 96b9f9a4d8
commit 38371be988
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgomp/ChangeLog
View File

@ -1,3 +1,10 @@
2006-09-08 Steven G. Kargl <kargl@gcc.gnu.org>
* testsuite/libgomp.fortran/reduction3.f90: Change
-2147483648 to -huge(i)-1 to avoid overflow.
* testsuite/libgomp.fortran/reduction4.f90: Change
Z'ffffffff' to not(0) to avoid overflow.
2006-08-26 Joseph S. Myers <joseph@codesourcery.com>
PR libgomp/25938

2
libgomp/testsuite/libgomp.fortran/reduction3.f90
View File

@ -17,7 +17,7 @@
!$omp parallel num_threads (3) private (n) reduction (.or.:v) &
!$omp & reduction (max:i, ia, r, ra, d, da)
!$ if (i .ne. -2147483648 .or. any (ia .ne. -2147483648)) v = .true.
!$ if (i .ne. -huge(i)-1 .or. any (ia .ne. -huge(ia)-1)) v = .true.
!$ if (r .ge. -1.0d38 .or. any (ra .ge. -1.0d38)) v = .true.
!$ if (d .ge. -1.0d300 .or. any (da .ge. -1.0d300)) v = .true.
n = omp_get_thread_num ()

2
libgomp/testsuite/libgomp.fortran/reduction4.f90
View File

@ -12,7 +12,7 @@
ka = Z'05a5a5'
v = .false.
cnt = -1
x = Z'ffffffff'
x = not(0)
!$omp parallel num_threads (3) private (n) reduction (.or.:v) &
!$omp & reduction (iand:i, ia) reduction (ior:j, ja) reduction (ieor:k, ka)