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