gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90

   1 ! PR fortran/44036
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp" }
   4 subroutine foo(a, b)
   5   integer, external :: a
   6   integer, external, pointer :: b
   7   integer, external :: c
   8   integer, external, pointer :: d
   9   integer :: x
  10   x = 6
  11 !$omp parallel default(none) private (x)
  12   x = a(4)
  13 !$omp end parallel
  14 !$omp parallel default(none) private (x)        ! { dg-error "enclosing parallel" }
  15   x = b(5)                                      ! { dg-error "not specified in" }
  16 !$omp end parallel
  17 !$omp parallel default(none) private (x)
  18   x = c(6)
  19 !$omp end parallel
  20   d => a
  21 !$omp parallel default(none) private (x)        ! { dg-error "enclosing parallel" }
  22   x = d(7)                                      ! { dg-error "not specified in" }
  23 !$omp end parallel
  24 end