1! { dg-do compile }
2
3subroutine foo (r)
4 integer :: i, r
5 !$omp target
6 !$omp target teams distribute parallel do reduction (+: r) ! { dg-warning ".target. construct inside of .target. region" }
7 do i = 1, 10
8 r = r + 1
9 end do
10 !$omp end target
11end subroutine
12