2 /* { dg-require-effective-target tls_runtime } */
8 #pragma omp threadprivate (thr)
13 return l
|| (thr
!= omp_get_thread_num () * 2);
22 omp_set_num_threads (6);
25 /* Broadcast the value to all threads. */
26 #pragma omp parallel copyin (thr)
29 #pragma omp parallel reduction (||:l)
31 /* Now test if the broadcast succeeded. */
33 thr
= omp_get_thread_num () * 2;