1! PR fortran/99226 2 3subroutine sub (n) 4 integer :: n, i 5 !$omp target ! { dg-error "construct with nested 'teams' construct contains directives outside of the 'teams' construct" } 6 !$omp teams distribute dist_schedule (static,n+4) 7 do i = 1, 8 8 end do 9 !$omp teams distribute dist_schedule (static,n+4) 10 do i = 1, 8 11 end do 12 !$omp end target 13end 14