1  /* { dg-do compile } */
       2  /* { dg-options "-fopenmp" } */
       3  
       4  void
       5  foo (int a, int b, int *p, int *q, int task)
       6  {
       7    int i;
       8    #pragma omp parallel if (a) if (b) /* { dg-error "too many .if. clauses without modifier" } */
       9      ;
      10    #pragma omp parallel if (a) if (parallel: b) /* { dg-error "if any .if. clause has modifier, then all .if. clauses have to use modifier" } */
      11      ;
      12    #pragma omp parallel if (parallel: a) if (b) /* { dg-error "if any .if. clause has modifier, then all .if. clauses have to use modifier" } */
      13      ;
      14    #pragma omp parallel if (parallel:a) if (parallel:a) /* { dg-error "too many .if. clauses with .parallel. modifier" } */
      15      ;
      16    #pragma omp parallel if (task:a) /* { dg-error "expected .parallel. .if. clause modifier rather than .task." } */ \
      17      if (taskloop: b) /* { dg-error "expected .parallel. .if. clause modifier rather than .taskloop." } */
      18      ;
      19    #pragma omp parallel if (target update:a) /* { dg-error "expected .parallel. .if. clause modifier rather than .target update." } */
      20      ;
      21    #pragma omp parallel if (cancel:a) /* { dg-error "expected .parallel. .if. clause modifier rather than .cancel." } */
      22      ;
      23    #pragma omp parallel for simd if (target update: a) /* { dg-error "expected .parallel. .if. clause modifier rather than .target update." } */
      24    for (i = 0; i < 16; i++)
      25      ;
      26    #pragma omp task if (task)
      27      ;
      28    #pragma omp task if (task: task)
      29      ;
      30    #pragma omp task if (parallel: a) /* { dg-error "expected .task. .if. clause modifier rather than .parallel." } */
      31      ;
      32    #pragma omp simd if (cancel: a) /* { dg-error "expected .simd. .if. clause modifier rather than .cancel." } */
      33    for (i = 0; i < 16; i++)
      34      ;
      35    #pragma omp taskloop if (task : a) /* { dg-error "expected .taskloop. .if. clause modifier rather than .task." } */
      36    for (i = 0; i < 16; i++)
      37      ;
      38    #pragma omp target if (taskloop: a) /* { dg-error "expected .target. .if. clause modifier rather than .taskloop." } */
      39      ;
      40    #pragma omp target teams distribute parallel for simd if (target exit data : a) /* { dg-error "expected .target. .if. clause modifier" } */
      41    for (i = 0; i < 16; i++)
      42      ;
      43    #pragma omp target data if (target: a) map (p[0:2]) /* { dg-error "expected .target data. .if. clause modifier rather than .target." } */
      44      ;
      45    #pragma omp target enter data if (target data: a) map (to: p[0:2]) /* { dg-error "expected .target enter data. .if. clause modifier rather than .target data." } */
      46    #pragma omp target exit data if (target enter data: a) map (from: p[0:2]) /* { dg-error "expected .target exit data. .if. clause modifier rather than .target enter data." } */
      47    #pragma omp target update if (target exit data:a) to (q[0:3]) /* { dg-error "expected .target update. .if. clause modifier rather than .target exit data." } */
      48    #pragma omp for
      49    for (i = 0; i < 16; i++)
      50      {
      51        #pragma omp cancel for if (target exit data:a) /* { dg-error "expected .cancel. .if. clause modifier" } */
      52      }
      53  }