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
|
program test
implicit none
integer :: i, j
!$acc kernels
!$acc loop tile ! { dg-error "Failed to match clause" }
DO i = 1,10
ENDDO
!$acc loop tile() ! { dg-error "Syntax error" }
DO i = 1,10
ENDDO
!$acc loop tile(1)
DO i = 1,10
ENDDO
!$acc loop tile(2)
DO i = 1,10
ENDDO
!$acc loop tile(6-2)
DO i = 1,10
ENDDO
!$acc loop tile(6+2)
DO i = 1,10
ENDDO
!$acc loop tile(*)
DO i = 1,10
ENDDO
!$acc loop tile(*, 1)
DO i = 1,10
DO j = 1,10
ENDDO
ENDDO
!$acc loop tile(-1) ! { dg-warning "must be positive" }
do i = 1,10
enddo
!$acc loop tile(i) ! { dg-error "constant expression" }
do i = 1,10
enddo
!$acc loop tile(2, 2, 1) ! { dg-error "not enough DO loops for tiled" }
do i = 1, 3
do j = 4, 6
end do
end do
!$acc loop tile(2, 2)
do i = 1, 5, 2
do j = i + 1, 7, i ! { dg-error "tiled loops don.t form rectangular iteration space" }
end do
end do
!$acc loop vector tile(*)
DO i = 1,10
ENDDO
!$acc loop worker tile(*)
DO i = 1,10
ENDDO
!$acc loop gang tile(*)
DO i = 1,10
ENDDO
!$acc loop vector gang tile(*)
DO i = 1,10
ENDDO
!$acc loop vector worker tile(*)
DO i = 1,10
ENDDO
!$acc loop gang worker tile(*)
DO i = 1,10
ENDDO
!$acc end kernels
!$acc kernels loop tile ! { dg-error "Failed to match clause" }
DO i = 1,10
ENDDO
!$acc kernels loop tile() ! { dg-error "Syntax error" }
DO i = 1,10
ENDDO
!$acc kernels loop tile(1)
DO i = 1,10
ENDDO
!$acc kernels loop tile(*)
DO i = 1,10
ENDDO
!$acc kernels loop tile(*, 1)
DO i = 1,10
DO j = 1,10
ENDDO
ENDDO
!$acc kernels loop tile(-1) ! { dg-warning "must be positive" }
do i = 1,10
enddo
!$acc kernels loop tile(i) ! { dg-error "constant expression" }
do i = 1,10
enddo
!$acc kernels loop tile(2, 2, 1) ! { dg-error "not enough DO loops for tiled" }
do i = 1, 3
do j = 4, 6
end do
end do
!$acc kernels loop tile(2, 2)
do i = 1, 5, 2
do j = i + 1, 7, i ! { dg-error "tiled loops don.t form rectangular iteration space" }
end do
end do
!$acc kernels loop vector tile(*)
DO i = 1,10
ENDDO
!$acc kernels loop worker tile(*)
DO i = 1,10
ENDDO
!$acc kernels loop gang tile(*)
DO i = 1,10
ENDDO
!$acc kernels loop vector gang tile(*)
DO i = 1,10
ENDDO
!$acc kernels loop vector worker tile(*)
DO i = 1,10
ENDDO
!$acc kernels loop gang worker tile(*)
DO i = 1,10
ENDDO
end
|
