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

   1 ! PR fortran/44036
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp" }
   4 subroutine foo(a)
   5   integer, external :: a, c
   6   integer :: x
   7 !$omp parallel default(none) private (x) shared (a)     ! { dg-error "is not a variable" }
   8   x = a(6)
   9 !$omp end parallel
  10 !$omp parallel default(none) private (x) shared (c)     ! { dg-error "is not a variable" }
  11   x = c(6)
  12 !$omp end parallel
  13 end