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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
! RUN: %S/../test_errors.sh %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive:
! 2.5.3 Kernels
program openacc_kernels_validity
implicit none
type atype
real(8), dimension(10) :: arr
real(8) :: s
end type atype
integer :: i, j, b, gang_size, vector_size, worker_size
integer, parameter :: N = 256
integer, dimension(N) :: c
logical, dimension(N) :: d, e
integer :: async1
integer :: wait1, wait2
real :: reduction_r
logical :: reduction_l
real(8), dimension(N, N) :: aa, bb, cc
real(8), dimension(:), allocatable :: dd
real(8), pointer :: p
logical :: ifCondition = .TRUE.
type(atype) :: t
type(atype), dimension(10) :: ta
real(8), dimension(N) :: a, f, g, h
!$acc kernels async
!$acc end kernels
!$acc kernels async(1)
!$acc end kernels
!$acc kernels async(async1)
!$acc end kernels
!$acc kernels wait(wait1)
!$acc end kernels
!$acc kernels wait(wait1, wait2)
!$acc end kernels
!$acc kernels wait(1, 2) async(3)
!$acc end kernels
!$acc kernels wait(queues: 1, 2) async(3)
!$acc end kernels
!$acc kernels wait(1) wait(2) async(3)
!$acc end kernels
!$acc kernels wait(devnum: 1: 1, 2) async(3)
!$acc end kernels
!$acc kernels wait(devnum: 1: queues: 1, 2) async(3)
!$acc end kernels
!$acc kernels num_gangs(8)
!$acc end kernels
!$acc kernels num_workers(8)
!$acc end kernels
!$acc kernels vector_length(128)
!$acc end kernels
!$acc kernels if(.true.)
!$acc end kernels
!$acc kernels if(ifCondition)
!$acc end kernels
!ERROR: At most one IF clause can appear on the KERNELS directive
!$acc kernels if(.true.) if(ifCondition)
!$acc end kernels
!$acc kernels self
!$acc end kernels
!$acc kernels self(.true.)
!$acc end kernels
!$acc kernels self(ifCondition)
!$acc end kernels
!$acc kernels copy(aa) copyin(bb) copyout(cc)
!$acc end kernels
!$acc kernels copy(aa, bb) copyout(zero: cc)
!$acc end kernels
!$acc kernels present(aa, bb) create(cc)
!$acc end kernels
!$acc kernels copyin(readonly: aa, bb) create(zero: cc)
!$acc end kernels
!$acc kernels deviceptr(aa, bb) no_create(cc)
!$acc end kernels
!ERROR: Argument `aa` on the ATTACH clause must be a variable or array with the POINTER or ALLOCATABLE attribute
!$acc kernels attach(dd, p, aa)
!$acc end kernels
!ERROR: PRIVATE clause is not allowed on the KERNELS directive
!$acc kernels private(aa, bb, cc)
!$acc end kernels
!$acc kernels default(none)
!$acc end kernels
!$acc kernels default(present)
!$acc end kernels
!ERROR: At most one DEFAULT clause can appear on the KERNELS directive
!$acc kernels default(none) default(present)
!$acc end kernels
!$acc kernels device_type(*)
!$acc end kernels
!$acc kernels device_type(1)
!$acc end kernels
!$acc kernels device_type(1, 3)
!$acc end kernels
!$acc kernels device_type(*) async wait num_gangs(8) num_workers(8) vector_length(128)
!$acc end kernels
!$acc kernels device_type(*) async
do i = 1, N
a(i) = 3.14
end do
!$acc end kernels
!ERROR: Clause IF is not allowed after clause DEVICE_TYPE on the KERNELS directive
!$acc kernels device_type(*) if(.TRUE.)
do i = 1, N
a(i) = 3.14
end do
!$acc end kernels
end program openacc_kernels_validity
|
