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