tree-optimization/113385 - wrong loop father with early exit vectorization

[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / target3.f90

! { 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