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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
! { dg-do run }
program myprog
type u
integer, dimension (:), pointer :: tarr1
integer, dimension (:), pointer :: tarr2
integer, dimension (:), pointer :: tarr3
end type u
type(u) :: myu1, myu2, myu3
integer, dimension (12), target :: myarray1
integer, dimension (12), target :: myarray2
integer, dimension (12), target :: myarray3
integer, dimension (12), target :: myarray4
integer, dimension (12), target :: myarray5
integer, dimension (12), target :: myarray6
integer, dimension (12), target :: myarray7
integer, dimension (12), target :: myarray8
integer, dimension (12), target :: myarray9
myu1%tarr1 => myarray1
myu1%tarr2 => myarray2
myu1%tarr3 => myarray3
myu2%tarr1 => myarray4
myu2%tarr2 => myarray5
myu2%tarr3 => myarray6
myu3%tarr1 => myarray7
myu3%tarr2 => myarray8
myu3%tarr3 => myarray9
myu1%tarr1 = 0
myu1%tarr2 = 0
myu1%tarr3 = 0
myu2%tarr1 = 0
myu2%tarr2 = 0
myu2%tarr3 = 0
myu3%tarr1 = 0
myu3%tarr2 = 0
myu3%tarr3 = 0
!$omp target map(to:myu1%tarr1) map(tofrom:myu1%tarr1(:)) &
!$omp& map(to:myu1%tarr2) map(tofrom:myu1%tarr2(:)) &
!$omp& map(to:myu1%tarr3) map(tofrom:myu1%tarr3(:)) &
!$omp& map(to:myu2%tarr1) map(tofrom:myu2%tarr1(:)) &
!$omp& map(to:myu2%tarr2) map(tofrom:myu2%tarr2(:)) &
!$omp& map(to:myu2%tarr3) map(tofrom:myu2%tarr3(:)) &
!$omp& map(to:myu3%tarr1) map(tofrom:myu3%tarr1(:)) &
!$omp& map(to:myu3%tarr2) map(tofrom:myu3%tarr2(:)) &
!$omp& map(to:myu3%tarr3) map(tofrom:myu3%tarr3(:))
myu1%tarr1(1) = myu1%tarr1(1) + 1
myu2%tarr1(1) = myu2%tarr1(1) + 1
myu3%tarr1(1) = myu3%tarr1(1) + 1
!$omp end target
!$omp target map(to:myu1%tarr1) map(tofrom:myu1%tarr1(1:2)) &
!$omp& map(to:myu1%tarr2) map(tofrom:myu1%tarr2(1:2)) &
!$omp& map(to:myu1%tarr3) map(tofrom:myu1%tarr3(1:2)) &
!$omp& map(to:myu2%tarr1) map(tofrom:myu2%tarr1(1:2)) &
!$omp& map(to:myu2%tarr2) map(tofrom:myu2%tarr2(1:2)) &
!$omp& map(to:myu2%tarr3) map(tofrom:myu2%tarr3(1:2)) &
!$omp& map(to:myu3%tarr1) map(tofrom:myu3%tarr1(1:2)) &
!$omp& map(to:myu3%tarr2) map(tofrom:myu3%tarr2(1:2)) &
!$omp& map(to:myu3%tarr3) map(tofrom:myu3%tarr3(1:2))
myu1%tarr2(1) = myu1%tarr2(1) + 1
myu2%tarr2(1) = myu2%tarr2(1) + 1
myu3%tarr2(1) = myu3%tarr2(1) + 1
!$omp end target
!$omp target map(to:myu1%tarr1) map(tofrom:myu1%tarr1(1)) &
!$omp& map(to:myu1%tarr2) map(tofrom:myu1%tarr2(1)) &
!$omp& map(to:myu1%tarr3) map(tofrom:myu1%tarr3(1)) &
!$omp& map(to:myu2%tarr1) map(tofrom:myu2%tarr1(1)) &
!$omp& map(to:myu2%tarr2) map(tofrom:myu2%tarr2(1)) &
!$omp& map(to:myu2%tarr3) map(tofrom:myu2%tarr3(1)) &
!$omp& map(to:myu3%tarr1) map(tofrom:myu3%tarr1(1)) &
!$omp& map(to:myu3%tarr2) map(tofrom:myu3%tarr2(1)) &
!$omp& map(to:myu3%tarr3) map(tofrom:myu3%tarr3(1))
myu1%tarr3(1) = myu1%tarr3(1) + 1
myu2%tarr3(1) = myu2%tarr3(1) + 1
myu3%tarr3(1) = myu3%tarr3(1) + 1
!$omp end target
!$omp target map(tofrom:myu1%tarr1) &
!$omp& map(tofrom:myu1%tarr2) &
!$omp& map(tofrom:myu1%tarr3) &
!$omp& map(tofrom:myu2%tarr1) &
!$omp& map(tofrom:myu2%tarr2) &
!$omp& map(tofrom:myu2%tarr3) &
!$omp& map(tofrom:myu3%tarr1) &
!$omp& map(tofrom:myu3%tarr2) &
!$omp& map(tofrom:myu3%tarr3)
myu1%tarr2(1) = myu1%tarr2(1) + 1
myu2%tarr2(1) = myu2%tarr2(1) + 1
myu3%tarr2(1) = myu3%tarr2(1) + 1
!$omp end target
if (myu1%tarr1(1).ne.1) stop 1
if (myu2%tarr1(1).ne.1) stop 2
if (myu3%tarr1(1).ne.1) stop 3
if (myu1%tarr2(1).ne.2) stop 4
if (myu2%tarr2(1).ne.2) stop 5
if (myu3%tarr2(1).ne.2) stop 6
if (myu1%tarr3(1).ne.1) stop 7
if (myu2%tarr3(1).ne.1) stop 8
if (myu3%tarr3(1).ne.1) stop 9
end program myprog
|
