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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
! Offloading test checking interaction of mapping a declare target link common
! block with device_type any to a target region
! REQUIRES: flang, amdgcn-amd-amdhsa
! UNSUPPORTED: nvptx64-nvidia-cuda
! UNSUPPORTED: nvptx64-nvidia-cuda-LTO
! UNSUPPORTED: aarch64-unknown-linux-gnu
! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO
! UNSUPPORTED: x86_64-unknown-linux-gnu
! UNSUPPORTED: x86_64-unknown-linux-gnu-LTO
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
implicit none
common /var_common/ var1, var2, var3
integer :: var1, var2, var3
!$omp declare target link(/var_common/)
call modify_1
!$omp target map(tofrom: var2)
var2 = var2 + var3
!$omp end target
call modify_2
call modify_3
print *, var1
print *, var2
print *, var3
end program
subroutine modify_1
common /var_common/ var1, var2, var3
integer :: var1, var2, var3
!$omp target map(tofrom: /var_common/)
var1 = 10
var2 = 20
var3 = 30
!$omp end target
end
subroutine modify_2
common /var_common/ var1, var2, var3
integer :: var1, var2, var3
integer :: copy
!$omp target map(tofrom: copy)
copy = var2 + var3
!$omp end target
print *, copy
end
subroutine modify_3
common /var_common/ var1, var2, var3
integer :: var1, var2, var3
!$omp target map(tofrom: /var_common/)
var1 = var1 + var1
var2 = var2 + var2
var3 = var3 + var3
!$omp end target
end
!CHECK: 80
!CHECK: 20
!CHECK: 100
!CHECK: 60
|
