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. --- libgomp/testsuite/libgomp.fortran/omp_parse3.f90 (revision 129630) +++ libgomp/testsuite/libgomp.fortran/omp_parse3.f90 (revision 129631) @@ -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 ()