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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
! Test the output of "-fopt-info-optimized-omp".
! { dg-additional-options "-fopt-info-optimized-omp" }
! See also "../../c-c++-common/goacc/note-parallelism.c".
program test
implicit none
integer x, y, z
!$acc parallel
do x = 1, 10
end do
!$acc end parallel
!$acc parallel loop seq ! { dg-message "optimized: assigned OpenACC seq loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop gang ! { dg-message "optimized: assigned OpenACC gang loop parallelis" }
do x = 1, 10
end do
!$acc parallel loop worker ! { dg-message "optimized: assigned OpenACC worker loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop vector ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop gang vector ! { dg-message "optimized: assigned OpenACC gang vector loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop gang worker ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop worker vector ! { dg-message "optimized: assigned OpenACC worker vector loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop gang worker vector ! { dg-message "optimized: assigned OpenACC gang worker vector loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop gang ! { dg-message "optimized: assigned OpenACC gang loop parallelism" }
do x = 1, 10
!$acc loop worker ! { dg-message "optimized: assigned OpenACC worker loop parallelism" }
do y = 1, 10
!$acc loop vector ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do z = 1, 10
end do
end do
end do
!$acc parallel loop ! { dg-message "optimized: assigned OpenACC gang vector loop parallelism" }
do x = 1, 10
end do
!$acc parallel loop ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
do x = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do y = 1, 10
end do
end do
!$acc parallel loop ! { dg-message "optimized: assigned OpenACC gang loop parallelism" }
do x = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC worker loop parallelism" }
do y = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do z = 1, 10
end do
end do
end do
!$acc parallel
do x = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
do y = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do z = 1, 10
end do
end do
end do
!$acc end parallel
!$acc parallel loop seq ! { dg-message "optimized: assigned OpenACC seq loop parallelism" }
do x = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
do y = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do z = 1, 10
end do
end do
end do
!$acc parallel loop ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
do x = 1, 10
!$acc loop seq ! { dg-message "optimized: assigned OpenACC seq loop parallelism" }
do y = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do z = 1, 10
end do
end do
end do
!$acc parallel loop ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
do x = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
do y = 1, 10
!$acc loop seq ! { dg-message "optimized: assigned OpenACC seq loop parallelism" }
do z = 1, 10
end do
end do
end do
!$acc parallel loop seq ! { dg-message "optimized: assigned OpenACC seq loop parallelism" }
do x = 1, 10
!$acc loop ! { dg-message "optimized: assigned OpenACC gang vector loop parallelism" }
do y = 1, 10
!$acc loop seq ! { dg-message "optimized: assigned OpenACC seq loop parallelism" }
do z = 1, 10
end do
end do
end do
end program test
|
