2 /* { dg-options "-O2" } */
3 /* { dg-require-effective-target tls_runtime } */
9 #pragma omp threadprivate (thr)
14 return l
|| (thr
!= omp_get_thread_num () * 2);
23 omp_set_num_threads (6);
26 /* Broadcast the value to all threads. */
27 #pragma omp parallel copyin (thr)
30 #pragma omp parallel reduction (||:l)
32 /* Now test if the broadcast succeeded. */
34 thr
= omp_get_thread_num () * 2;