gcc/testsuite/c-c++-common/gomp/begin-assumes-2.c

   1 #pragma omp begin assumes no_openmp no_openmp                   /* { dg-error "too many 'no_openmp' clauses" } */
   2 void f1 (void) {}
   3 #pragma omp end assumes
   4 #pragma omp begin assumes no_openmp_routines, no_openmp_routines        /* { dg-error "too many 'no_openmp_routines' clauses" } */
   5 void f2 (void) {}
   6 #pragma omp end assumes
   7 #pragma omp begin assumes no_parallelism, no_parallelism                /* { dg-error "too many 'no_parallelism' clauses" } */
   8 void f3 (void) {}
   9 #pragma omp end assumes
  10 #pragma omp begin assumes absent (target, target)                       /* { dg-error "'target' directive mentioned multiple times in 'absent' clauses" } */
  11 void f4 (void) {}
  12 #pragma omp end assumes
  13 #pragma omp begin assumes absent (target, teams) absent (teams, parallel)       /* { dg-error "'teams' directive mentioned multiple times in 'absent' clauses" } */
  14 void f5 (void) {}
  15 #pragma omp end assumes
  16 #pragma omp begin assumes contains (cancellation point, cancellation point)     /* { dg-error "'cancellation point' directive mentioned multiple times in 'contains' clauses" } */
  17 void f6 (void) {}
  18 #pragma omp end assumes
  19 #pragma omp begin assumes contains (target enter data, target exit data) contains (target exit data, parallel)  /* { dg-error "target exit data' directive mentioned multiple times in 'contains' clauses" } */
  20 void f7 (void) {}
  21 #pragma omp end assumes
  22 #pragma omp begin assumes absent (target enter data, target exit data) contains (target exit data, parallel)            /* { dg-error "'target exit data' directive mentioned in both 'absent' and 'contains' clauses" } */
  23 void f8 (void) {}
  24 #pragma omp end assumes
  25 #pragma omp begin assumes contains (target enter data, target exit data) absent (target enter data, parallel)   /* { dg-error "'target enter data' directive mentioned in both 'absent' and 'contains' clauses" } */
  26 void f9 (void) {}
  27 #pragma omp end assumes
  28 #pragma omp begin assumes contains (declare target)                     /* { dg-error "unknown OpenMP directive name in 'contains' clause argument" } */
  29 void f10 (void) {}
  30 #pragma omp end assumes
  31 #pragma omp begin assumes absent (parallel for simd)                    /* { dg-error "unknown OpenMP directive name in 'absent' clause argument" } */
  32 void f11 (void) {}
  33 #pragma omp end assumes
  34 #pragma omp begin assumes contains (target parallel)                    /* { dg-error "unknown OpenMP directive name in 'contains' clause argument" } */
  35 void f12 (void) {}
  36 #pragma omp end assumes
  37 #pragma omp begin assumes absent (assume)                               /* { dg-error "unknown OpenMP directive name in 'absent' clause argument" } */
  38 void f13 (void) {}
  39 #pragma omp end assumes
  40 #pragma omp begin assumes absent (assumes)                              /* { dg-error "unknown OpenMP directive name in 'absent' clause argument" } */
  41 void f14 (void) {}
  42 #pragma omp end assumes
  43 #pragma omp begin assumes contains (begin assumes)                      /* { dg-error "unknown OpenMP directive name in 'contains' clause argument" } */
  44 void f15 (void) {}
  45 #pragma omp end assumes
  46 #pragma omp begin assumes contains (end assumes)                        /* { dg-error "unknown OpenMP directive name in 'contains' clause argument" } */
  47 void f16 (void) {}
  48 #pragma omp end assumes
  49 #pragma omp begin assumes contains (foo)                                /* { dg-error "unknown OpenMP directive name in 'contains' clause argument" } */
  50 void f17 (void) {}
  51 #pragma omp end assumes
  52 #pragma omp begin assumes absent (target enter something)               /* { dg-error "unknown OpenMP directive name in 'absent' clause argument" } */
  53 void f18 (void) {}
  54 #pragma omp end assumes
  55 #pragma omp begin assumes foobar                                        /* { dg-error "expected assumption clause" } */
  56 void f19 (void) {}
  57 #pragma omp end assumes
  58 #pragma omp begin assumes ext_GCC_foobarbaz, ext_GCC_baz (1, 12, 1 < 17), no_parallelism        /* { dg-warning "unknown assumption clause 'ext_GCC_foobarbaz'" } */
  59 void f20 (void) {}                                                              /* { dg-warning "unknown assumption clause 'ext_GCC_baz'" "" { target *-*-* } .-1 } */
  60 #pragma omp end assumes
  61 #pragma omp begin assumes                                               /* { dg-error "expected at least one assumption clause" } */
  62 void f21 (void) {}
  63 #pragma omp end assumes