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
71
72
|
! { dg-additional-options "-foffload-options=nvptx-none=-misa=sm_35" { target { offload_target_nvptx } } }
implicit none
!$omp requires reverse_offload
integer :: A(50), A2(50)
integer :: i, error
logical :: shared_mem
error = 0
shared_mem = .false.
A = [(i, i=1,50)]
A2 = [(i, i=1,50)]
!$omp target map(to: shared_mem)
shared_mem = .true.
!$omp end target
!$omp target map(to: A(20:40), A2(20:40)) map(from: error)
block
integer :: B(10), C(10)
B = 99
C = 88
A(20:40) = -A(20:40)
A2(20:40) = -A2(20:40)
!$omp target device (ancestor:1) &
!$omp& map(to: A(25:35)) map(always, to: A2(25:35)) &
!$omp& map(from:B(4:8)) map(tofrom:C(4:8))
if (shared_mem) then
if (any (A(25:35) /= [(-i,i=25,35)])) stop 20
else
if (any (A(25:35) /= [( i,i=25,35)])) stop 21
end if
if (any (A2(25:35) /= [(-i,i=25,35)])) stop 22
if (any (C(4:8) /= 88)) stop 23
A(25:35) = -A(25:35)*10
A2(25:35) = -A2(25:35)*10
B(4:8) = [4,5,6,7,8]
C(4:8) = [-4,-5,-6,-7,-8]
!$omp end target
if (any (B(1:3) /= 99) .or. any (B(9:10) /= 99)) then
error = 30
elseif (any (B(4:8) /= [4,5,6,7,8])) then
error = 31
elseif (any (C(1:3) /= 88) .or. any (C(9:10) /= 88)) then
error = 32
elseif (any (C(4:8) /= [-4,-5,-6,-7,-8])) then
error = 33
else
error = 0
endif
end block
if (error /= 0) stop error
if (shared_mem) then
if (any (A(1:19) /= [( i, i=1,19)])) stop 1
if (any (A(20:24) /= [(-i, i=20,24)])) stop 2
if (any (A(36:40) /= [(-i, i=36,40)])) stop 3
if (any (A(41:50) /= [( i, i=41,50)])) stop 4
if (any (A(25:35) /= [( 10*i, i=25,35)])) stop 5
else
if (any (A(1:24) /= [( i, i=1,24)])) stop 6
if (any (A(36:50) /= [( i, i=36,50)])) stop 7
if (any (A(25:35) /= [(-10*i, i=25,35)])) stop 8
end if
if (any (A2(25:35) /= [( 10*i, i=25,35)])) stop 9
end
|
