TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 14:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

re PR testsuite/59534 (FAIL: libgomp.fortran/retval1.f90 execution test due to denormals)

Browse Source 
PR testsuite/59534
	* testsuite/libgomp.fortran/retval1.f90 (e5): Avoid non-shortcircuited
	comparisons.

From-SVN: r206051
This commit is contained in:
Jakub Jelinek
2013-12-17 16:17:00 +01:00
committed by Jakub Jelinek
parent c17ac06ac2
commit fa00a5fe2a
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
libgomp/ChangeLog
View File

@@ -1,3 +1,9 @@
2013-12-17 Jakub Jelinek <jakub@redhat.com>
PR testsuite/59534
* testsuite/libgomp.fortran/retval1.f90 (e5): Avoid non-shortcircuited
comparisons.
2013-12-16 Jakub Jelinek <jakub@redhat.com>
PR libgomp/58756

4
libgomp/testsuite/libgomp.fortran/retval1.f90
View File

@@ -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