blob: 7734ca9d0cf0d4d964842ff6549b4c1150cfbf04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
! Offloading test checking interaction of a two 1-D allocatable arrays with a
! target region while providing the map upper and lower bounds
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
integer, allocatable :: sp_read(:), sp_write(:)
allocate(sp_read(10))
allocate(sp_write(10))
do i = 1, 10
sp_read(i) = i
sp_write(i) = 0
end do
!$omp target map(tofrom:sp_read(2:6)) map(tofrom:sp_write(2:6))
do i = 1, 10
sp_write(i) = sp_read(i)
end do
!$omp end target
do i = 1, 10
print *, sp_write(i)
end do
deallocate(sp_read)
deallocate(sp_write)
end program
! CHECK: 0
! CHECK: 2
! CHECK: 3
! CHECK: 4
! CHECK: 5
! CHECK: 6
! CHECK: 0
! CHECK: 0
! CHECK: 0
! CHECK: 0
|
