! PR fortran/92756

program pr92756
  integer :: i
  !$omp teams distribute parallel do	! { dg-error "'teams' construct not closely nested inside of 'target' construct" }
  do i = 1, 64
  end do
end