Sign in
llvm
/
llvm-project
/
openmp
/
17bc35bd89611b0372accaf0e9a18d940ca92310
/
.
/
libomptarget
/
test
/
Inputs
/
basic_array.f90
blob: 30fe7c8c0ef4862ba20b59f252cd3bfbd2c500da [
file
] [
log
] [
blame
]
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