From f0cc9288d67f77e7a4799cdcf2c4b1fe7a5d64ab Mon Sep 17 00:00:00 2001 From: jakub Date: Thu, 25 Oct 2007 20:25:12 +0000 Subject: [PATCH] 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129631 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgomp/ChangeLog | 7 +++++++ libgomp/testsuite/libgomp.fortran/omp_parse3.f90 | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index ee5b5a768ab..2f86c483603 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2007-10-25 Jakub Jelinek + + 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 * 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 98c94b93b79..a39ff103ecd 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 () -- 2.11.0