gcc/testsuite/gfortran.dg/gomp/pr44536.f90

   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