// RUN: %clang_cc1 -verify -fopenmp -ferror-limit 100 %s // RUN: %clang_cc1 -verify -fopenmp-simd -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; } |