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) STOP 1
21      end
22