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