diff options
author | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-09-08 20:57:55 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-09-08 20:57:55 +0000 |
commit | 38371be9886507f8bf82fe2fb0a56803efd4ea79 (patch) | |
tree | f45e16d3311223105f950150be68e3f090261ad9 /libgomp/testsuite | |
parent | 96b9f9a4d84511ca59ebd763dc7128ab9013a9d0 (diff) | |
download | gcc-38371be9886507f8bf82fe2fb0a56803efd4ea79.zip gcc-38371be9886507f8bf82fe2fb0a56803efd4ea79.tar.gz gcc-38371be9886507f8bf82fe2fb0a56803efd4ea79.tar.bz2 |
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
Diffstat (limited to 'libgomp/testsuite')
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/reduction3.f90 | 2 | ||||
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/reduction4.f90 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/reduction3.f90 b/libgomp/testsuite/libgomp.fortran/reduction3.f90 index a0786ec..89b9d1a 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 5a5e852..bb1ed0e 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) |