diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2013-12-17 16:17:00 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2013-12-17 16:17:00 +0100 |
| commit | fa00a5fe2ac6b25b2c67a99a3bc9ee6e12ec2485 (patch) | |
| tree | 2a47859b3e2cbbba9c2e606294434a73e594707a /libgomp/testsuite | |
| parent | c17ac06ac232dbe7a435464faa16cbc7d3471636 (diff) | |
| download | gcc-fa00a5fe2ac6b25b2c67a99a3bc9ee6e12ec2485.zip gcc-fa00a5fe2ac6b25b2c67a99a3bc9ee6e12ec2485.tar.gz gcc-fa00a5fe2ac6b25b2c67a99a3bc9ee6e12ec2485.tar.bz2 | |
re PR testsuite/59534 (FAIL: libgomp.fortran/retval1.f90 execution test due to denormals)
PR testsuite/59534
* testsuite/libgomp.fortran/retval1.f90 (e5): Avoid non-shortcircuited
comparisons.
From-SVN: r206051
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/retval1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/retval1.f90 b/libgomp/testsuite/libgomp.fortran/retval1.f90 index 8bb07f8..b259457 100644 --- a/libgomp/testsuite/libgomp.fortran/retval1.f90 +++ b/libgomp/testsuite/libgomp.fortran/retval1.f90 @@ -91,8 +91,8 @@ entry e5 (is_f5) l = .false. !$omp parallel firstprivate (f5, e5) shared (is_f5) num_threads (2) & !$omp reduction (.or.:l) - l = .not. is_f5 .and. e5 .ne. 8 - l = l .or. (is_f5 .and. f5 .ne. 6.5) + if (.not. is_f5) l = l .or. e5 .ne. 8 + if (is_f5) l = l .or. f5 .ne. 6.5 if (omp_get_thread_num () .eq. 0) e5 = 8 if (omp_get_thread_num () .eq. 1) e5 = 14 f5 = e5 - 4.5 |