blob: f7fef9583214bd63cdc77650e045f040b7c3ce8e (
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
|
! Offloading test with two target regions mapping the same declare target
! Fortran array and writing some values to it before checking the host
! correctly receives the correct updates made on the device.
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
module test_0
implicit none
integer :: sp(10) = (/0,0,0,0,0,0,0,0,0,0/)
!$omp declare target link(sp)
end module test_0
program main
use test_0
integer :: i = 1
integer :: j = 11
!$omp target map(tofrom:sp) map(to: i, j)
do while (i <= j)
sp(i) = i;
i = i + 1
end do
!$omp end target
!$omp target map(tofrom:sp) map(to: i, j)
do while (i <= j)
sp(i) = sp(i) + i;
i = i + 1
end do
!$omp end target
print *, sp(:)
end program
! CHECK: 2 4 6 8 10 12 14 16 18 20
|
