1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! Basic offloading test of arrays with provided lower and upper bounds as
! specified by OpenMP's sectioning
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
implicit none
integer :: write_arr(10) = (/0,0,0,0,0,0,0,0,0,0/)
integer :: read_arr(10) = (/1,2,3,4,5,6,7,8,9,10/)
integer :: i = 2
integer :: j = 5
!$omp target map(to:read_arr(2:5)) map(from:write_arr(2:5)) map(to:i,j)
do while (i <= j)
write_arr(i) = read_arr(i)
i = i + 1
end do
!$omp end target
print *, write_arr(:)
end program
! CHECK: 0 2 3 4 5 0 0 0 0 0
|
