/
pccc
/
pccc-mlir
Обзор
Документация
Войти
/
pccc
/
pccc-mlir
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
master
offload/test/Inputs/basic_array.f90
7 строк
263 B
obitotsky
fork mlir
19 июл 2026, 07:05
Верифицирован
19 июл 2026, 07:05
6422b87
Код
Авторство
О чём код?
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