8 lines · plain
1subroutine increment_at(c_index, arr) bind(C, name="increment_at")2 use ISO_C_BINDING3 !$omp declare target4 integer (C_INT), dimension(*), intent(inout) :: arr5 integer (C_INT), value :: c_index6 arr(c_index+1) = arr(c_index+1) + 17end subroutine8