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 x = 6 11!$omp parallel default(none) private (x) 12 x = a(4) 13!$omp end parallel 14!$omp parallel default(none) private (x) ! { dg-error "enclosing 'parallel'" } 15 x = b(5) ! { dg-error "not specified in" } 16!$omp end parallel 17!$omp parallel default(none) private (x) 18 x = c(6) 19!$omp end parallel 20 d => a 21!$omp parallel default(none) private (x) ! { dg-error "enclosing 'parallel'" } 22 x = d(7) ! { dg-error "not specified in" } 23!$omp end parallel 24end 25