llvm-project/flang/test/Semantics/omp-private-is-pointer-check.f90

! RUN: %flang_fc1 -fopenmp -fsyntax-only %s

subroutine s
  integer, pointer :: p
  integer, target :: t

  !$omp parallel private(p)
    p=>t
  !$omp end parallel
end subroutine