xref: /llvm-project/offload/test/Inputs/basic_array.f90 (revision 330d8983d25d08580fc1642fea48b2473f47a9da)
1subroutine increment_at(c_index, arr) bind(C, name="increment_at")
2    use ISO_C_BINDING
3    !$omp declare target
4    integer (C_INT), dimension(*), intent(inout) :: arr
5    integer (C_INT), value :: c_index
6    arr(c_index+1) = arr(c_index+1) + 1
7end subroutine
8