gcc/testsuite/gfortran.dg/gomp/crayptr4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fopenmp -fcray-pointer" }
   3
   4 subroutine 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
  24 end