gcc/testsuite/c-c++-common/gomp/if-2.c

   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 for simd if (target update: a) /* { dg-error "expected .parallel. .if. clause modifier rather than .target update." } */
  22   for (i = 0; i < 16; i++)
  23     ;
  24   #pragma omp task if (task)
  25     ;
  26   #pragma omp task if (task: task)
  27     ;
  28   #pragma omp task if (parallel: a) /* { dg-error "expected .task. .if. clause modifier rather than .parallel." } */
  29     ;
  30   #pragma omp taskloop if (task : a) /* { dg-error "expected .taskloop. .if. clause modifier rather than .task." } */
  31   for (i = 0; i < 16; i++)
  32     ;
  33   #pragma omp target if (taskloop: a) /* { dg-error "expected .target. .if. clause modifier rather than .taskloop." } */
  34     ;
  35   #pragma omp target teams distribute parallel for simd if (target exit data : a) /* { dg-error "expected .parallel. or .target. .if. clause modifier" } */
  36   for (i = 0; i < 16; i++)
  37     ;
  38   #pragma omp target data if (target: a) map (p[0:2]) /* { dg-error "expected .target data. .if. clause modifier rather than .target." } */
  39     ;
  40   #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." } */
  41   #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." } */
  42   #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." } */
  43 }