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