@@ -138,37 +138,9 @@ program openacc_clause_validity
138
138
! ERROR: Unmatched PARALLEL directive
139
139
! $acc end parallel
140
140
141
- ! ERROR: At least one of DEVICE, HOST, SELF clause must appear on the UPDATE directive
142
- ! $acc update
143
-
144
141
! $acc update self(a, f) host(g) device(h)
145
142
146
- ! $acc update host(aa) async(1)
147
-
148
- ! $acc update device(bb) async(async1)
149
-
150
- ! ERROR: At most one ASYNC clause can appear on the UPDATE directive
151
- ! $acc update host(aa, bb) async(1) async(2)
152
-
153
- ! $acc update self(bb, cc(:)) wait(1)
154
-
155
- ! $acc update device(aa, bb, cc) wait(wait1)
156
-
157
- ! $acc update host(aa) host(bb) device(cc) wait(1,2)
158
-
159
- ! $acc update device(aa, cc) wait(wait1, wait2)
160
-
161
- ! $acc update device(aa) device_type(*) async
162
-
163
- ! $acc update host(bb) device_type(*) wait
164
-
165
- ! $acc update self(cc) device_type(1,2) async device_type(3) wait
166
-
167
- ! ERROR: At most one IF clause can appear on the UPDATE directive
168
- ! $acc update device(aa) if(.true.) if(ifCondition)
169
-
170
- ! ERROR: At most one IF_PRESENT clause can appear on the UPDATE directive
171
- ! $acc update device(bb) if_present if_present
143
+ ! $acc update device(i) device_type(*) async
172
144
173
145
! ERROR: Clause IF is not allowed after clause DEVICE_TYPE on the UPDATE directive
174
146
! $acc update device(i) device_type(*) if(.TRUE.)
0 commit comments