parenthesized(construct<AccObjectListWithReduction>(
Parser<AccReductionOperator>{} / ":",
Parser<AccObjectList>{})))) ||
+ // SELF clause is either a simple optional condition for compute construct
+ // or a synonym of the HOST clause for the update directive 2.14.4 holding
+ // an object list.
"SELF" >> construct<AccClause>(construct<AccClause::Self>(
maybe(parenthesized(scalarLogicalExpr)))) ||
+ construct<AccClause>(
+ construct<AccClause::Host>(parenthesized(Parser<AccObjectList>{}))) ||
"SEQ" >> construct<AccClause>(construct<AccClause::Seq>()) ||
"TILE" >> construct<AccClause>(construct<AccClause::Tile>(
parenthesized(Parser<AccTileExprList>{}))) ||
!ERROR: At least one clause is required on the DECLARE directive
!$acc declare
- real(8), dimension(N) :: a
+ real(8), dimension(N) :: a, f, g, h
!$acc init
!$acc init if(.TRUE.)
!ERROR: Unmatched PARALLEL directive
!$acc end parallel
+ !$acc update self(a, f) host(g) device(h)
+
!$acc update device(i) device_type(*) async
!ERROR: Clause IF is not allowed after clause DEVICE_TYPE on the UPDATE directive
a(i) = 3.14
end do
+ !$acc parallel loop self
+ do i = 1, N
+ a(i) = 3.14
+ end do
+
+ !$acc parallel loop self(.true.)
+ do i = 1, N
+ a(i) = 3.14
+ end do
+
+ !$acc parallel loop self(ifCondition)
+ do i = 1, N
+ a(i) = 3.14
+ end do
+
!$acc parallel loop tile(2, 2)
do i = 1, N
do j = 1, N