a0e3418bc8
This patch adds a test that uses a target region to set a scalar value. It also adds rules in lit.cfg to handle fortran testing. Reviewed By: jdoerfert Differential Revision: https://reviews.llvm.org/D159216
8 lines
263 B
Fortran
8 lines
263 B
Fortran
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
|