Run DCE after a LoopFlatten test to reduce spurious output [nfc]

[llvm-project.git] / openmp / libomptarget / test / Inputs / basic_array.f90

subroutine increment_at(c_index, arr) bind(C, name="increment_at")
    use ISO_C_BINDING
    !$omp declare target
    integer (C_INT), dimension(*), intent(inout) :: arr
    integer (C_INT), value :: c_index
    arr(c_index+1) = arr(c_index+1) + 1
end subroutine