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

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index ee5b5a768abd74382b8b9c20fa842dfbbc2c2c7c..2f86c483603c8d91c3d8bb398fd43c009dc9a48c 100644 (file)
--- 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 98c94b93b796f87f1af50bad0039b647877edc7f..a39ff103ecd3740d12bda78ed546f6b985146029 100644 (file)
--- 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 ()