1! PR fortran/32550 2! { dg-do run } 3! { dg-require-effective-target tls_runtime } 4 5 integer, pointer, save :: ptr 6 integer, target :: targ 7 integer :: e 8!$omp threadprivate(ptr) 9 e = 0 10 targ = 42 11!$omp parallel shared(targ) 12!$omp single 13 ptr => targ 14!$omp end single copyprivate(ptr) 15 if (ptr.ne.42) then 16!$omp atomic 17 e = e + 1 18 end if 19!$omp end parallel 20 if (e.ne.0) call abort 21 end 22