| ! { dg-do compile } | |
| subroutine foo (r) | |
| integer :: i, r | |
| !$omp target | |
| !$omp target teams distribute parallel do reduction (+: r) ! { dg-warning ".target. construct inside of .target. region" } | |
| do i = 1, 10 | |
| r = r + 1 | |
| end do | |
| !$omp end target | |
| end subroutine |