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
|
! { dg-do compile }
! { dg-additional-options "-fmax-errors=100" }
program test
implicit none
integer :: i, j, k, l, a(10)
common /b/ k
real, pointer :: p1 => NULL()
complex :: c, d(10)
!$acc parallel private(i)
!$acc end parallel
!$acc parallel private(a)
!$acc end parallel
!$acc parallel private(c, d)
!$acc end parallel
!$acc parallel private(i, j, k, l, a)
!$acc end parallel
!$acc parallel private (i) private (j)
!$acc end parallel
!$acc parallel private ! { dg-error "Failed to match clause" }
!$acc parallel private() ! { dg-error "Syntax error" }
!$acc parallel private(a(1:3)) ! { dg-error "Syntax error" }
!$acc parallel private(10) ! { dg-error "Syntax error" }
!$acc parallel private(/b/, /b/) ! { dg-error "present on multiple clauses" }
!$acc end parallel
!$acc parallel private(i, j, i) ! { dg-error "present on multiple clauses" }
!$acc end parallel
!$acc parallel private(p1)
!$acc end parallel
!$acc parallel firstprivate(i)
!$acc end parallel
!$acc parallel firstprivate(c, d)
!$acc end parallel
!$acc parallel firstprivate(a)
!$acc end parallel
!$acc parallel firstprivate(i, j, k, l, a)
!$acc end parallel
!$acc parallel firstprivate (i) firstprivate (j)
!$acc end parallel
!$acc parallel firstprivate ! { dg-error "Failed to match clause" }
!$acc parallel firstprivate() ! { dg-error "Syntax error" }
!$acc parallel firstprivate(a(1:3)) ! { dg-error "Syntax error" }
!$acc parallel firstprivate(10) ! { dg-error "Syntax error" }
!$acc parallel firstprivate (/b/, /b/) ! { dg-error "present on multiple clauses" }
!$acc end parallel
!$acc parallel firstprivate (i, j, i) ! { dg-error "present on multiple clauses" }
!$acc end parallel
!$acc parallel firstprivate(p1)
!$acc end parallel
!$acc parallel private (i) firstprivate (i) ! { dg-error "present on multiple clauses" }
!$acc end parallel
!$acc host_data use_device(i) ! { dg-error "neither a POINTER nor an array" }
!$acc end host_data
!$acc host_data use_device(c, d) ! { dg-error "neither a POINTER nor an array" }
!$acc end host_data
!$acc host_data use_device(a)
!$acc end host_data
!$acc host_data use_device(i, j, k, l, a) ! { dg-error "neither a POINTER nor an array" }
!$acc end host_data
!$acc host_data use_device (i) use_device (j) ! { dg-error "neither a POINTER nor an array" }
!$acc end host_data
!$acc host_data use_device ! { dg-error "Failed to match clause" }
!$acc host_data use_device() ! { dg-error "Syntax error" }
!$acc host_data use_device(a(1:3)) ! { dg-error "Syntax error" }
!$acc host_data use_device(10) ! { dg-error "Syntax error" }
!$acc host_data use_device(/b/, /b/)
!$acc end host_data
! { dg-error "neither a POINTER nor an array" "" { target *-*-* } 102 }
! { dg-error "present on multiple clauses" "" { target *-*-* } 102 }
!$acc host_data use_device(i, j, i)
!$acc end host_data
! { dg-error "neither a POINTER nor an array" "" { target *-*-* } 107 }
! { dg-error "present on multiple clauses" "" { target *-*-* } 107 }
!$acc host_data use_device(p1)
!$acc end host_data
end program test
|
