1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
! PR fortran/44036 ! { dg-do compile } ! { dg-options "-fopenmp" } subroutine foo(a, b) integer, external :: a integer, external, pointer :: b integer, external :: c integer, external, pointer :: d integer :: x d => a !$omp parallel default(none) private (x) firstprivate (b, d) x = a(4) x = b(5) x = c(6) x = d(7) !$omp end parallel end