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