blob: eed982276e7f2f0966261636ee8c2202030fed3a (
plain)
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
116
117
118
119
120
121
122
123
124
125
126
127
128
|
// { dg-do compile }
// { dg-options "-fopenmp" }
#pragma omp declare target
int i, j;
void
f1 ()
{
#pragma omp for linear (i:1) // { dg-error "iteration variable .i. should not be linear" }
for (i = 0; i < 32; i++)
;
}
void
f2 ()
{
#pragma omp distribute parallel for linear (i:1) // { dg-error ".linear. is not valid for .#pragma omp distribute parallel for." }
for (i = 0; i < 32; i++)
;
}
void
f3 ()
{
#pragma omp parallel for linear (i:1) collapse(1)
for (i = 0; i < 32; i++) // { dg-error "iteration variable .i. should not be linear" }
;
}
void
f4 ()
{
#pragma omp for linear (i:1) linear (j:2) collapse(2) // { dg-error "iteration variable .i. should not be linear" }
for (i = 0; i < 32; i++) // { dg-error "iteration variable .j. should not be linear" "" { target *-*-* } .-1 }
for (j = 0; j < 32; j+=2)
;
}
void
f5 ()
{
#pragma omp target teams distribute parallel for linear (i:1) linear (j:2) collapse(2) // { dg-error ".linear. is not valid for .#pragma omp target teams distribute parallel for." }
for (i = 0; i < 32; i++)
for (j = 0; j < 32; j+=2)
;
}
void
f6 ()
{
#pragma omp parallel for linear (i:1) collapse(2) linear (j:2) // { dg-error "iteration variable .i. should not be linear" "" { target *-*-* } .+1 }
for (i = 0; i < 32; i++) // { dg-error "iteration variable .j. should not be linear" }
for (j = 0; j < 32; j+=2)
;
}
template <int N>
void
f7 ()
{
#pragma omp for linear (i:1) // { dg-error "iteration variable .i. should not be linear" }
for (i = 0; i < 32; i++)
;
}
template <int N>
void
f8 ()
{
#pragma omp distribute parallel for linear (i:1) // { dg-error ".linear. is not valid for .#pragma omp distribute parallel for." }
for (i = 0; i < 32; i++)
;
}
template <int N>
void
f9 ()
{
#pragma omp parallel for linear (i:1) collapse(1)
for (i = 0; i < 32; i++) // { dg-error "iteration variable .i. should not be linear" }
;
}
template <int N>
void
f10 ()
{
#pragma omp for linear (i:1) linear (j:2) collapse(2) // { dg-error "iteration variable .i. should not be linear" }
for (i = 0; i < 32; i++) // { dg-error "iteration variable .j. should not be linear" "" { target *-*-* } .-1 }
for (j = 0; j < 32; j+=2)
;
}
template <int N>
void
f11 ()
{
#pragma omp target teams distribute parallel for linear (i:1) linear (j:2) collapse(2) // { dg-error ".linear. is not valid for .#pragma omp target teams distribute parallel for." }
for (i = 0; i < 32; i++)
for (j = 0; j < 32; j+=2)
;
}
template <int N>
void
f12 ()
{
#pragma omp parallel for linear (i:1) collapse(2) linear (j:2) // { dg-error "iteration variable .i. should not be linear" "" { target *-*-* } .+1 }
for (i = 0; i < 32; i++) // { dg-error "iteration variable .j. should not be linear" }
for (j = 0; j < 32; j+=2)
;
}
#pragma omp end declare target
void
f13 ()
{
f7 <0> ();
#pragma omp target teams
f8 <1> ();
f9 <2> ();
f10 <3> ();
f11 <4> ();
f12 <5> ();
}
|