2 ! { dg-options "-fopenmp -fcray-pointer" }
3 ! { dg-options "-fopenmp -fcray-pointer -static-libgcc" { target *-*-darwin* } }
6 integer :: a
, b
, c
, d
, p
10 !$omp threadprivate (ip)
15 !$omp parallel num_threads (3) reduction (.or.:l)
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)