2 ! { dg-additional-options "-fmax-errors=100" }
7 integer :: i, j, k, l, a(10)
9 real, pointer :: p1 => NULL()
12 !$acc parallel private(i)
15 !$acc parallel private(a)
18 !$acc parallel private(c, d)
21 !$acc parallel private(i, j, k, l, a)
24 !$acc parallel private (i) private (j)
27 !$acc parallel private ! { dg-error "Unclassifiable OpenACC directive" }
29 !$acc parallel private() ! { dg-error "Syntax error" }
31 !$acc parallel private(a(1:3)) ! { dg-error "Syntax error" }
33 !$acc parallel private(10) ! { dg-error "Syntax error" }
35 !$acc parallel private(/b/, /b/) ! { dg-error "present on multiple clauses" }
38 !$acc parallel private(i, j, i) ! { dg-error "present on multiple clauses" }
41 !$acc parallel private(p1)
44 !$acc parallel firstprivate(i)
47 !$acc parallel firstprivate(c, d)
50 !$acc parallel firstprivate(a)
53 !$acc parallel firstprivate(i, j, k, l, a)
56 !$acc parallel firstprivate (i) firstprivate (j)
59 !$acc parallel firstprivate ! { dg-error "Unclassifiable OpenACC directive" }
61 !$acc parallel firstprivate() ! { dg-error "Syntax error" }
63 !$acc parallel firstprivate(a(1:3)) ! { dg-error "Syntax error" }
65 !$acc parallel firstprivate(10) ! { dg-error "Syntax error" }
67 !$acc parallel firstprivate (/b/, /b/) ! { dg-error "present on multiple clauses" }
70 !$acc parallel firstprivate (i, j, i) ! { dg-error "present on multiple clauses" }
73 !$acc parallel firstprivate(p1)
76 !$acc parallel private (i) firstprivate (i) ! { dg-error "present on multiple clauses" }
79 !$acc host_data use_device(i)
82 !$acc host_data use_device(c, d)
85 !$acc host_data use_device(a)
88 !$acc host_data use_device(i, j, k, l, a)
91 !$acc host_data use_device (i) use_device (j)
94 !$acc host_data use_device ! { dg-error "Unclassifiable OpenACC directive" }
96 !$acc host_data use_device() ! { dg-error "Syntax error" }
98 !$acc host_data use_device(a(1:3)) ! { dg-error "Syntax error" }
100 !$acc host_data use_device(10) ! { dg-error "Syntax error" }
102 !$acc host_data use_device(/b/, /b/) ! { dg-error "present on multiple clauses" }
105 !$acc host_data use_device(i, j, i) ! { dg-error "present on multiple clauses" }
108 !$acc host_data use_device(p1) ! { dg-error "POINTER" }