c4fad65bfc
Fixes processing of declarative directives and standalone executable directives. Declarative directives should not be allowed as an immediate statements and standalone executable directives are allowed to be used in case-stmt constructs. llvm-svn: 257586
84 lines
3.3 KiB
C++
84 lines
3.3 KiB
C++
// RUN: %clang_cc1 -verify -fopenmp -ferror-limit 100 %s
|
|
|
|
int main(int argc, char **argv) {
|
|
#pragma omp cancellation // expected-error {{expected an OpenMP directive}}
|
|
#pragma omp cancellation point // expected-error {{one of 'for', 'parallel', 'sections' or 'taskgroup' is expected}}
|
|
;
|
|
#pragma omp cancellation point parallel untied // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp cancellation point'}}
|
|
#pragma omp cancellation point unknown // expected-error {{one of 'for', 'parallel', 'sections' or 'taskgroup' is expected}}
|
|
#pragma omp cancellation point sections( // expected-warning {{extra tokens at the end of '#pragma omp cancellation point' are ignored}}
|
|
#pragma omp cancellation point for, ) // expected-warning {{extra tokens at the end of '#pragma omp cancellation point' are ignored}}
|
|
#pragma omp cancellation point taskgroup() // expected-warning {{extra tokens at the end of '#pragma omp cancellation point' are ignored}}
|
|
#pragma omp cancellation point parallel, if // expected-warning {{extra tokens at the end of '#pragma omp cancellation point' are ignored}}
|
|
if (argc)
|
|
#pragma omp cancellation point for // expected-error {{'#pragma omp cancellation point' cannot be an immediate substatement}}
|
|
if (argc) {
|
|
#pragma omp taskgroup
|
|
#pragma omp task
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp cancellation point taskgroup // expected-error {{region cannot be closely nested inside 'parallel' region}}
|
|
}
|
|
}
|
|
#pragma omp parallel
|
|
#pragma omp taskgroup
|
|
{
|
|
#pragma omp cancellation point taskgroup // expected-error {{region cannot be closely nested inside 'taskgroup' region}}
|
|
}
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp cancellation point for // expected-error {{region cannot be closely nested inside 'parallel' region}}
|
|
}
|
|
#pragma omp task
|
|
{
|
|
#pragma omp cancellation point sections // expected-error {{region cannot be closely nested inside 'task' region}}
|
|
}
|
|
#pragma omp sections
|
|
{
|
|
#pragma omp cancellation point parallel // expected-error {{region cannot be closely nested inside 'sections' region}}
|
|
}
|
|
while (argc)
|
|
#pragma omp cancellation point for // expected-error {{'#pragma omp cancellation point' cannot be an immediate substatement}}
|
|
while (argc) {
|
|
#pragma omp cancellation point sections
|
|
}
|
|
do
|
|
#pragma omp cancellation point parallel // expected-error {{'#pragma omp cancellation point' cannot be an immediate substatement}}
|
|
while (argc)
|
|
;
|
|
do {
|
|
#pragma omp cancellation point taskgroup
|
|
} while (argc);
|
|
switch (argc)
|
|
#pragma omp cancellation point parallel // expected-error {{'#pragma omp cancellation point' cannot be an immediate substatement}}
|
|
switch (argc)
|
|
case 1:
|
|
#pragma omp cancellation point sections
|
|
switch (argc)
|
|
case 1: {
|
|
#pragma omp cancellation point for
|
|
}
|
|
switch (argc) {
|
|
#pragma omp cancellation point taskgroup
|
|
case 1:
|
|
#pragma omp cancellation point parallel
|
|
break;
|
|
default: {
|
|
#pragma omp cancellation point sections
|
|
} break;
|
|
}
|
|
for (;;)
|
|
#pragma omp cancellation point for // expected-error {{'#pragma omp cancellation point' cannot be an immediate substatement}}
|
|
for (;;) {
|
|
#pragma omp cancellation point taskgroup
|
|
}
|
|
label:
|
|
#pragma omp cancellation point parallel // expected-error {{'#pragma omp cancellation point' cannot be an immediate substatement}}
|
|
label1 : {
|
|
#pragma omp cancellation point sections
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|