1! PR fortran/44036
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4subroutine 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  d => a
11!$omp parallel default(none) private (x) firstprivate (b, d)
12  x = a(4)
13  x = b(5)
14  x = c(6)
15  x = d(7)
16!$omp end parallel
17end
18