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
|
extern void dummy (int);
void
test (void)
{
#pragma omp tile sizes(0) /* { dg-error "'sizes' argument needs positive integral constant" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(-1) /* { dg-error "'sizes' argument needs positive integral constant" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes() /* { dg-error "expected expression before" "" { target c} } */
/* { dg-error "expected primary-expression before" "" { target c++ } .-1 } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(,) /* { dg-error "expected expression before" "" { target c } } */
/* { dg-error "expected primary-expression before" "" { target c++ } .-1 } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(1,2 /* { dg-error "expected '\\\)' before end of line" "" { target c } } */
for (int i = 0; i < 100; ++i) /* { dg-error "not enough nested loops" "" { target c } } */
dummy (i); /* { dg-error "expected ',' before end of line" "" { target c++ } .-2 } */
#pragma omp tile sizes /* { dg-error "expected '\\\(' before end of line" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(1) sizes(1) /* { dg-error "expected end of line before 'sizes'" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(1, 2)
#pragma omp tile sizes(1) /* { dg-error "'tile' construct generates 1 loops with canonical form but 2 loops are needed" } */
for (int i = 0; i < 100; ++i)
for (int j = 0; j < 100; ++j)
dummy (i);
#pragma omp tile sizes(1)
#pragma omp unroll partia /* { dg-error "expected an OpenMP clause before 'partia'" } */
#pragma omp tile sizes(1) /* { dg-error "generated loop of 'unroll' construct without 'partial' clause does not have canonical form" "" { target *-*-* } .-1 } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(1)
#pragma omp unroll /* { dg-error "generated loop of 'unroll' construct without 'partial' clause does not have canonical form" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(1)
#pragma omp unroll full /* { dg-error "generated loop of 'unroll' construct without 'partial' clause does not have canonical form" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(8,8)
#pragma omp unroll partial /* { dg-error "'unroll' construct with 'partial' clause generates just one loop with canonical form but 2 loops are needed" } */
#pragma omp tile sizes(1)
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(8,8)
#pragma omp unroll partial /* { dg-error "'unroll' construct with 'partial' clause generates just one loop with canonical form but 2 loops are needed" } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(1, 2) /* { dg-error "non-rectangular 'tile'" } */
for (int i = 0; i < 100; ++i)
for (int j = i; j < 100; ++j)
dummy (i);
#pragma omp tile sizes(1, 2) /* { dg-error "non-rectangular 'tile'" } */
for (int i = 0; i < 100; ++i)
for (int j = 2; j < i; ++j)
dummy (i);
#pragma omp tile sizes(1, 2, 3)
for (int i = 0; i < 100; ++i) /* { dg-error "not enough nested loops" } */
for (int j = 0; j < 100; ++j)
dummy (i);
#pragma omp tile sizes(1, 2)
for (int i = 0; i < 100; ++i) /* { dg-error "inner loops must be perfectly nested" } */
{
dummy (i);
for (int j = 0; j < 100; ++j)
dummy (j);
}
#pragma omp tile sizes(1, 2)
for (int i = 0; i < 100; ++i) /* { dg-error "inner loops must be perfectly nested" } */
{
for (int j = 0; j < 100; ++j)
dummy (j);
dummy (i);
}
int s;
#pragma omp tile sizes(s) /* { dg-error "'sizes' argument needs positive integral constant" "" { target { ! c++98_only } } } */
/* { dg-error "the value of 's' is not usable in a constant expression" "" { target { c++ && { ! c++98_only } } } .-1 } */
/* { dg-error "'s' cannot appear in a constant-expression" "" { target c++98_only } .-2 } */
for (int i = 0; i < 100; ++i)
dummy (i);
#pragma omp tile sizes(42.0) /* { dg-error "'sizes' argument needs positive integral constant" } */
for (int i = 0; i < 100; ++i)
dummy (i);
}
|
