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-error "enclosing 'parallel'" }
8        j=a(i)					! { dg-error "not specified in" }
9!$omp end parallel
10      end subroutine
11