2 ! { dg-options "-fcray-pointer" }
3 ! { dg-require-effective-target tls_runtime }
6 integer :: a
, b
, c
, d
, p
10 !$omp threadprivate (ip)
15 !$omp parallel num_threads (3) reduction (.or.:l) private (d)
16 if (omp_get_thread_num () .eq
. 0) then
18 elseif (omp_get_thread_num () .eq
. 1) then
23 l
= p
.ne
. omp_get_thread_num () + 1
25 d
= omp_get_thread_num ()
26 !$omp end single copyprivate (d, ip)
27 l
= l
.or
. (p
.ne
. d
+ 1)