mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-29 14:46:07 +00:00
10e775f4a8
OpenMP 4.1 introduces optional argument '(n)' for 'ordered' clause, where 'n' is a number of loops that immediately follow the directive. 'n' must be constant positive integer expressions and it must be less or equal than the number of the loops in the resulting loop nest. Patch adds parsing and semantic analysis for this optional argument. llvm-svn: 243635
105 lines
5.9 KiB
C++
105 lines
5.9 KiB
C++
// RUN: %clang_cc1 -verify -fopenmp %s
|
|
|
|
void foo() {
|
|
}
|
|
|
|
bool foobool(int argc) {
|
|
return argc;
|
|
}
|
|
|
|
struct S1; // expected-note {{declared here}}
|
|
|
|
template <class T, typename S, int N, int ST> // expected-note {{declared here}}
|
|
T tmain(T argc, S **argv) { //expected-note 2 {{declared here}}
|
|
#pragma omp for ordered
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered() // expected-error {{expected expression}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
// expected-error@+3 {{expected ')'}} expected-note@+3 {{to match this '('}}
|
|
// expected-error@+2 2 {{expression is not an integral constant expression}}
|
|
// expected-note@+1 2 {{read of non-const variable 'argc' is not allowed in a constant expression}}
|
|
#pragma omp for ordered(argc
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
// expected-error@+1 2 {{argument to 'ordered' clause must be a positive integer value}}
|
|
#pragma omp for ordered(ST // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered(1)) // expected-warning {{extra tokens at the end of '#pragma omp for' are ignored}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered((ST > 0) ? 1 + ST : 2) // expected-note 2 {{as specified in 'ordered' clause}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST]; // expected-error 2 {{expected 2 for loops after '#pragma omp for', but found only 1}}
|
|
// expected-error@+3 2 {{directive '#pragma omp for' cannot contain more than one 'ordered' clause}}
|
|
// expected-error@+2 2 {{argument to 'ordered' clause must be a positive integer value}}
|
|
// expected-error@+1 2 {{expression is not an integral constant expression}}
|
|
#pragma omp for ordered(foobool(argc)), ordered(true), ordered(-5)
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered(S) // expected-error {{'S' does not refer to a value}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
// expected-error@+1 2 {{expression is not an integral constant expression}}
|
|
#pragma omp for ordered(argv[1] = 2) // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered(1)
|
|
for (int i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered(N) // expected-error {{argument to 'ordered' clause must be a positive integer value}}
|
|
for (T i = ST; i < N; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - ST];
|
|
#pragma omp for ordered(2) // expected-note {{as specified in 'ordered' clause}}
|
|
foo(); // expected-error {{expected 2 for loops after '#pragma omp for'}}
|
|
return argc;
|
|
}
|
|
|
|
int main(int argc, char **argv) {
|
|
#pragma omp for ordered
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
#pragma omp for ordered( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
#pragma omp for ordered() // expected-error {{expected expression}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
#pragma omp for ordered(4 // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-note {{as specified in 'ordered' clause}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4]; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
|
|
#pragma omp for ordered(2 + 2)) // expected-warning {{extra tokens at the end of '#pragma omp for' are ignored}} expected-note {{as specified in 'ordered' clause}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4]; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
|
|
#pragma omp for ordered(foobool(1) > 0 ? 1 : 2) // expected-error {{expression is not an integral constant expression}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
// expected-error@+3 {{expression is not an integral constant expression}}
|
|
// expected-error@+2 2 {{directive '#pragma omp for' cannot contain more than one 'ordered' clause}}
|
|
// expected-error@+1 2 {{argument to 'ordered' clause must be a positive integer value}}
|
|
#pragma omp for ordered(foobool(argc)), ordered(true), ordered(-5)
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
#pragma omp for ordered(S1) // expected-error {{'S1' does not refer to a value}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
// expected-error@+1 {{expression is not an integral constant expression}}
|
|
#pragma omp for ordered(argv[1] = 2) // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for (int i = 4; i < 12; i++)
|
|
argv[0][i] = argv[0][i] - argv[0][i - 4];
|
|
// expected-error@+3 {{statement after '#pragma omp for' must be a for loop}}
|
|
// expected-note@+1 {{in instantiation of function template specialization 'tmain<int, char, -1, -2>' requested here}}
|
|
#pragma omp for ordered(ordered(tmain < int, char, -1, -2 > (argc, argv) // expected-error 2 {{expected ')'}} expected-note 2 {{to match this '('}}
|
|
foo();
|
|
#pragma omp for ordered(2) // expected-note {{as specified in 'ordered' clause}}
|
|
foo(); // expected-error {{expected 2 for loops after '#pragma omp for'}}
|
|
// expected-note@+1 {{in instantiation of function template specialization 'tmain<int, char, 1, 0>' requested here}}
|
|
return tmain<int, char, 1, 0>(argc, argv);
|
|
}
|
|
|