64a9e3c530
checkNestingOfRegions uses CancelRegion to determine whether cancel and cancellation point are valid in the given nesting. This leads to unuseful diagnostics if CancelRegion is invalid. The given test case has produced: region cannot be closely nested inside 'parallel' region As a solution, introduce checkCancelRegion and call it first to get the expected error: one of 'for', 'parallel', 'sections' or 'taskgroup' is expected Differential Revision: https://reviews.llvm.org/D30135 llvm-svn: 295808
92 lines
3.2 KiB
C++
92 lines
3.2 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 cancel // expected-error {{one of 'for', 'parallel', 'sections' or 'taskgroup' is expected}}
|
|
;
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp cancel // expected-error {{one of 'for', 'parallel', 'sections' or 'taskgroup' is expected}}
|
|
}
|
|
#pragma omp cancel parallel untied // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp cancel'}}
|
|
#pragma omp cancel unknown // expected-error {{one of 'for', 'parallel', 'sections' or 'taskgroup' is expected}}
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp cancel unknown // expected-error {{one of 'for', 'parallel', 'sections' or 'taskgroup' is expected}}
|
|
}
|
|
#pragma omp cancel sections( // expected-warning {{extra tokens at the end of '#pragma omp cancel' are ignored}}
|
|
#pragma omp cancel for, ) // expected-warning {{extra tokens at the end of '#pragma omp cancel' are ignored}}
|
|
#pragma omp cancel taskgroup() // expected-warning {{extra tokens at the end of '#pragma omp cancel' are ignored}}
|
|
#pragma omp cancel parallel, if // expected-warning {{extra tokens at the end of '#pragma omp cancel' are ignored}}
|
|
if (argc)
|
|
#pragma omp cancel for // expected-error {{'#pragma omp cancel' cannot be an immediate substatement}}
|
|
if (argc) {
|
|
#pragma omp taskgroup
|
|
#pragma omp task
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp cancel taskgroup // expected-error {{region cannot be closely nested inside 'parallel' region}}
|
|
}
|
|
}
|
|
#pragma omp parallel
|
|
#pragma omp taskgroup
|
|
{
|
|
#pragma omp cancel taskgroup // expected-error {{region cannot be closely nested inside 'taskgroup' region}}
|
|
}
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp cancel for // expected-error {{region cannot be closely nested inside 'parallel' region}}
|
|
}
|
|
#pragma omp task
|
|
{
|
|
#pragma omp cancel sections // expected-error {{region cannot be closely nested inside 'task' region}}
|
|
}
|
|
#pragma omp sections
|
|
{
|
|
#pragma omp cancel parallel // expected-error {{region cannot be closely nested inside 'sections' region}}
|
|
}
|
|
while (argc)
|
|
#pragma omp cancel for // expected-error {{'#pragma omp cancel' cannot be an immediate substatement}}
|
|
while (argc) {
|
|
#pragma omp cancel sections
|
|
}
|
|
do
|
|
#pragma omp cancel parallel // expected-error {{'#pragma omp cancel' cannot be an immediate substatement}}
|
|
while (argc)
|
|
;
|
|
do {
|
|
#pragma omp cancel taskgroup
|
|
} while (argc);
|
|
switch (argc)
|
|
#pragma omp cancel parallel // expected-error {{'#pragma omp cancel' cannot be an immediate substatement}}
|
|
switch (argc)
|
|
case 1:
|
|
#pragma omp cancel sections
|
|
switch (argc)
|
|
case 1: {
|
|
#pragma omp cancel for
|
|
}
|
|
switch (argc) {
|
|
#pragma omp cancel taskgroup
|
|
case 1:
|
|
#pragma omp cancel parallel
|
|
break;
|
|
default: {
|
|
#pragma omp cancel sections
|
|
} break;
|
|
}
|
|
for (;;)
|
|
#pragma omp cancel for // expected-error {{'#pragma omp cancel' cannot be an immediate substatement}}
|
|
for (;;) {
|
|
#pragma omp cancel taskgroup
|
|
}
|
|
label:
|
|
#pragma omp cancel parallel // expected-error {{'#pragma omp cancel' cannot be an immediate substatement}}
|
|
label1 : {
|
|
#pragma omp cancel sections
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|