diff options
author | Jakub Jelinek <jakub@redhat.com> | 2007-10-25 22:25:12 +0200 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2007-10-25 22:25:12 +0200 |
commit | 98a5fa946891b64f97175cb0c9ed220cb0ed65c7 (patch) | |
tree | da554a55303152995b514537077439fb7adf32af /libgomp | |
parent | ef99c95ece7375c08ab72566675e583ac9bf011b (diff) | |
download | gcc-98a5fa946891b64f97175cb0c9ed220cb0ed65c7.zip gcc-98a5fa946891b64f97175cb0c9ed220cb0ed65c7.tar.gz gcc-98a5fa946891b64f97175cb0c9ed220cb0ed65c7.tar.bz2 |
re PR libgomp/33275 (Transient libgomp.fortran/omp_parse3.f90 -O0 failure)
PR libgomp/33275
* testsuite/libgomp.fortran/omp_parse3.f90 (test_threadprivate):
Make x and y integers rather than (implicit) reals. Add private (j)
clause to the last omp parallel.
From-SVN: r129631
Diffstat (limited to 'libgomp')
-rw-r--r-- | libgomp/ChangeLog | 7 | ||||
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/omp_parse3.f90 | 5 |
2 files changed, 10 insertions, 2 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index ee5b5a7..2f86c48 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2007-10-25 Jakub Jelinek <jakub@redhat.com> + + PR libgomp/33275 + * testsuite/libgomp.fortran/omp_parse3.f90 (test_threadprivate): + Make x and y integers rather than (implicit) reals. Add private (j) + clause to the last omp parallel. + 2007-10-15 Maciej W. Rozycki <macro@linux-mips.org> * configure: Regenerate following changes to ../config/tls.m4. diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 index 98c94b9..a39ff10 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 @@ -55,7 +55,7 @@ contains subroutine test_threadprivate common /tlsblock/ x, y !$omp threadprivate (/tlsblock/) - integer :: i, j + integer :: i, j, x, y logical :: m, n call omp_set_num_threads (4) call omp_set_dynamic (.false.) @@ -83,7 +83,8 @@ contains !$omp end parallel m = m .or. n n = .false. -!$omp parallel num_threads (4), copyin (z) reduction (.or. : n) +!$omp parallel num_threads (4), copyin (z) reduction (.or. : n) & +!$omp&private (j) if (z .ne. 4096) n = .true. if (omp_get_num_threads () .eq. i) then j = omp_get_thread_num () |