1! PR fortran/44036
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4subroutine 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
13end
14