1! OpenACC default clause: invalid syntax.
2
3      SUBROUTINE F1
4      IMPLICIT NONE
5
6!$ACC KERNELS DEFAULT ! { dg-error "Failed to match clause" }
7!$ACC END KERNELS ! { dg-error "Unexpected" }
8!$ACC PARALLEL DEFAULT ! { dg-error "Failed to match clause" }
9!$ACC END PARALLEL ! { dg-error "Unexpected" }
10
11!$ACC KERNELS DEFAULT ( ! { dg-error "Failed to match clause" }
12!$ACC END KERNELS ! { dg-error "Unexpected" }
13!$ACC PARALLEL DEFAULT ( ! { dg-error "Failed to match clause" }
14!$ACC END PARALLEL ! { dg-error "Unexpected" }
15
16!$ACC KERNELS DEFAULT (, ! { dg-error "Failed to match clause" }
17!$ACC END KERNELS ! { dg-error "Unexpected" }
18!$ACC PARALLEL DEFAULT (, ! { dg-error "Failed to match clause" }
19!$ACC END PARALLEL ! { dg-error "Unexpected" }
20
21!$ACC KERNELS DEFAULT () ! { dg-error "Failed to match clause" }
22!$ACC END KERNELS ! { dg-error "Unexpected" }
23!$ACC PARALLEL DEFAULT () ! { dg-error "Failed to match clause" }
24!$ACC END PARALLEL ! { dg-error "Unexpected" }
25
26!$ACC KERNELS DEFAULT (,) ! { dg-error "Failed to match clause" }
27!$ACC END KERNELS ! { dg-error "Unexpected" }
28!$ACC PARALLEL DEFAULT (,) ! { dg-error "Failed to match clause" }
29!$ACC END PARALLEL ! { dg-error "Unexpected" }
30
31!$ACC KERNELS DEFAULT (FIRSTPRIVATE) ! { dg-error "Failed to match clause" }
32!$ACC END KERNELS ! { dg-error "Unexpected" }
33!$ACC PARALLEL DEFAULT (FIRSTPRIVATE) ! { dg-error "Failed to match clause" }
34!$ACC END PARALLEL ! { dg-error "Unexpected" }
35
36!$ACC KERNELS DEFAULT (PRIVATE) ! { dg-error "Failed to match clause" }
37!$ACC END KERNELS ! { dg-error "Unexpected" }
38!$ACC PARALLEL DEFAULT (PRIVATE) ! { dg-error "Failed to match clause" }
39!$ACC END PARALLEL ! { dg-error "Unexpected" }
40
41!$ACC KERNELS DEFAULT (SHARED) ! { dg-error "Failed to match clause" }
42!$ACC END KERNELS ! { dg-error "Unexpected" }
43!$ACC PARALLEL DEFAULT (SHARED) ! { dg-error "Failed to match clause" }
44!$ACC END PARALLEL ! { dg-error "Unexpected" }
45
46!$ACC KERNELS DEFAULT (NONE ! { dg-error "Failed to match clause" }
47!$ACC END KERNELS ! { dg-error "Unexpected" }
48!$ACC PARALLEL DEFAULT (NONE ! { dg-error "Failed to match clause" }
49!$ACC END PARALLEL ! { dg-error "Unexpected" }
50
51!$ACC KERNELS DEFAULT (NONE NONE) ! { dg-error "Failed to match clause" }
52!$ACC END KERNELS ! { dg-error "Unexpected" }
53!$ACC PARALLEL DEFAULT (NONE NONE) ! { dg-error "Failed to match clause" }
54!$ACC END PARALLEL ! { dg-error "Unexpected" }
55
56!$ACC KERNELS DEFAULT (NONE, NONE) ! { dg-error "Failed to match clause" }
57!$ACC END KERNELS ! { dg-error "Unexpected" }
58!$ACC PARALLEL DEFAULT (NONE, NONE) ! { dg-error "Failed to match clause" }
59!$ACC END PARALLEL ! { dg-error "Unexpected" }
60      END SUBROUTINE F1
61