Subversion Repositories openrisc

! PR fortran/32550

! { dg-do run }

! { dg-require-effective-target tls_runtime }

      integer, pointer, save :: ptr

      integer, target :: targ

      integer :: e

!$omp threadprivate(ptr)

      e = 0

      targ = 42

!$omp parallel shared(targ)

!$omp single

      ptr => targ

!$omp end single copyprivate(ptr)

      if (ptr.ne.42) then

!$omp atomic

        e = e + 1

      end if

!$omp end parallel

      if (e.ne.0) call abort

      end