1! PR fortran/44536 2! { dg-do compile } 3! { dg-options "-fopenmp" } 4 subroutine foo (a, i, j) 5 integer, dimension(:) :: a 6 integer :: i, j 7!$omp parallel default(none) shared(i, j) ! { dg-message "note: enclosing 'parallel'" } 8 j=a(i) ! { dg-error "not specified in" } 9!$omp end parallel 10 end subroutine 11