77861b3a8f
Implement parsing and semantic analysis support for the message and severity clauses that have been added to the parallel directive in OpenMP 6.0, 12.1.
71 lines
2.8 KiB
C++
71 lines
2.8 KiB
C++
// RUN: %clang_cc1 -verify=expected -fopenmp -fopenmp-version=60 -ferror-limit 100 %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected -fopenmp-simd -fopenmp-version=60 -ferror-limit 100 %s -Wuninitialized
|
|
|
|
void foo() {}
|
|
|
|
template <class T, typename S, int N>
|
|
T tmain(T argc, S **argv) {
|
|
// Correct usages
|
|
#pragma omp parallel severity(fatal)
|
|
#pragma omp parallel severity(warning)
|
|
|
|
// Missing parentheses
|
|
#pragma omp parallel severity // expected-error {{expected '(' after 'severity'}}
|
|
|
|
// Empty parentheses
|
|
#pragma omp parallel severity() // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
|
|
// Invalid value
|
|
#pragma omp parallel severity(error) // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
#pragma omp parallel severity(unknown) // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
|
|
// Multiple arguments
|
|
#pragma omp parallel severity(fatal, warning) // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
|
|
// Unterminated clause
|
|
// expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
|
|
#pragma omp parallel severity(fatal
|
|
|
|
// Extra tokens after clause
|
|
#pragma omp parallel severity(fatal) extra // expected-warning {{extra tokens at the end of '#pragma omp parallel' are ignored}}
|
|
|
|
// Multiple severity clauses
|
|
#pragma omp parallel severity(fatal) severity(warning) // expected-error {{directive '#pragma omp parallel' cannot contain more than one 'severity' clause}}
|
|
|
|
// Severity clause with other clauses (should be valid)
|
|
#pragma omp parallel severity(warning) num_threads(2)
|
|
|
|
// Severity clause with invalid clause
|
|
#pragma omp parallel severity(fatal) invalid_clause // expected-warning {{extra tokens at the end of '#pragma omp parallel' are ignored}}
|
|
|
|
// Severity clause with macro that is not a valid value
|
|
#define NOT_A_SEVERITY 123
|
|
#pragma omp parallel severity(NOT_A_SEVERITY) // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
|
|
// Severity clause with macro that is a valid value
|
|
#define FATAL fatal
|
|
#pragma omp parallel severity(FATAL)
|
|
|
|
// Severity clause with template parameter that is not a valid value
|
|
#pragma omp parallel severity(N) // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
|
|
foo();
|
|
|
|
return argc;
|
|
}
|
|
|
|
int main(int argc, char **argv) {
|
|
// Correct usage
|
|
#pragma omp parallel severity(fatal)
|
|
|
|
// Invalid: missing value
|
|
#pragma omp parallel severity() // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
|
|
// Invalid: non-keyword
|
|
#pragma omp parallel severity(argc) // expected-error {{expected 'fatal' or 'warning' in OpenMP clause 'severity'}}
|
|
|
|
foo();
|
|
|
|
return tmain<int, char, 3>(argc, argv);
|
|
}
|