From 180476fab4d853ca2ef9cfb51edb77917bfee609 Mon Sep 17 00:00:00 2001 From: kargl Date: Fri, 8 Sep 2006 20:57:55 +0000 Subject: [PATCH 1/1] 2006-09-08 Steven G. Kargl * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116786 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgomp/ChangeLog | 7 +++++++ libgomp/testsuite/libgomp.fortran/reduction3.f90 | 2 +- libgomp/testsuite/libgomp.fortran/reduction4.f90 | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index bb0f3b0a20e..62ed9e9353a 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2006-09-08 Steven G. Kargl + + * 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 PR libgomp/25938 diff --git a/libgomp/testsuite/libgomp.fortran/reduction3.f90 b/libgomp/testsuite/libgomp.fortran/reduction3.f90 index a0786eca008..89b9d1af695 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction3.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction3.f90 @@ -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 () diff --git a/libgomp/testsuite/libgomp.fortran/reduction4.f90 b/libgomp/testsuite/libgomp.fortran/reduction4.f90 index 5a5e852bea7..bb1ed0e209c 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction4.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction4.f90 @@ -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) -- 2.11.0