1! { dg-do compile }
2! { dg-options "-fopenmp -fcray-pointer" }
3
4subroutine foo (n)
5  integer :: a, b (38), n
6  pointer (ip, a (n + 1))
7
8  b = 2
9  n = 36
10  ip = loc (b)
11!$omp parallel default (none) shared (ip)
12!$omp parallel default (none) shared (ip)
13  a = 1
14!$omp end parallel
15!$omp end parallel
16
17!$omp parallel default (none)
18!$omp parallel default (none) private (ip, b)
19  b = 3
20  ip = loc (b)
21  a = 1
22!$omp end parallel
23!$omp end parallel
24end
25