diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-04 17:57:29 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-04 17:57:29 +0000 |
| commit | 48ff1d417d4c49525c09b013395e38dda8bd50fe (patch) | |
| tree | ffb4ea05f14bc936b5dd3681e19b2aa3cee8c3bf /libgomp/testsuite/libgomp.fortran/retval1.f90 | |
| parent | 144409bbbdb293946cea105115e0e329f633d333 (diff) | |
| download | gcc-48ff1d417d4c49525c09b013395e38dda8bd50fe.tar.gz | |
2014-01-04 Basile Starynkevitch <basile@starynkevitch.net>
{{merge using svnmerge.py with trunk GCC 4.9 svn rev206333 now in
stage 3; very unstable, xtramelt-ana-base don't compile
anymore...}}
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@206336 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/retval1.f90')
| -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 8bb07f8fce6..b25945731e9 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 |