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.6 KiB
C++
92 lines
3.6 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 parallel
|
|
{
|
|
#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 parallel
|
|
{
|
|
#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;
|
|
}
|
|
|