| ! 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 |