1! RUN: %flang_fc1 -fopenmp -fsyntax-only %s
2
3subroutine s
4  integer, pointer :: p
5  integer, target :: t
6
7  !$omp parallel private(p)
8    p=>t
9  !$omp end parallel
10end subroutine
11