1! PR fortran/92756
2
3program pr92756
4  integer :: i
5  !$omp teams distribute parallel do	! { dg-error "'teams' construct not closely nested inside of 'target' construct" }
6  do i = 1, 64
7  end do
8end
9