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