2 ! { dg-require-effective-target tls_runtime }
3 integer, pointer, save :: thr(:)
4 !$omp threadprivate (thr)
5 integer, target
:: s(3), t(3), u(3)
14 !$omp parallel copyin (thr) reduction(.or.:l) reduction(+:i)
15 if (any (thr
.ne
.7)) l
= .true
.
25 if (thr(1).ne
.14) call abort
26 if (s(1).ne
.1+i
) call abort
27 if (u(1).ne
.14) call abort