--- libgomp/testsuite/libgomp.fortran/allocatable8.f90.jj	2011-07-12 15:42:56.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/allocatable8.f90	2011-07-12 15:45:00.000000000 +0200
@@ -0,0 +1,14 @@
+! { dg-do run }
+! { dg-require-effective-target tls_runtime }
+!$ use omp_lib
+
+  integer, save, allocatable :: a(:, :)
+  logical :: l
+!$omp threadprivate (a)
+  if (allocated (a)) call abort
+  l = .false.
+!$omp parallel copyin (a) num_threads (4) reduction(.or.:l)
+  l = l.or.allocated (a)
+!$omp end parallel
+  if (l.or.allocated (a)) call abort
+end