gcc/testsuite/gcc.dg/gomp/clause-2.c

   1 /* PR c/34506 */
   2 /* { dg-do compile } */
   3
   4 #define p parallel
   5
   6 void
   7 foo (int x)
   8 {
   9 #pragma omp p num_threads (4) if (1) private (x)
  10     ;
  11 #pragma omp p num_threads(4)if(1)private(x)
  12     ;
  13 #pragma omp p num_threads (4), if (1) , private (x)
  14     ;
  15 #pragma omp p num_threads(4),if(1),private(x)
  16     ;
  17 #pragma omp p, num_threads (4), if (1), private (x)     /* { dg-error "clause before" } */
  18     ;
  19 #pragma omp p num_threads (4), if (1), private (x),     /* { dg-error "clause before" } */
  20     ;
  21 #pragma omp p num_threads (4), , if (1), private (x)    /* { dg-error "clause before" } */
  22     ;
  23 }