gcc/testsuite/c-c++-common/gomp/clauses-5.c

   1 void
   2 foo (int *p)
   3 {
   4   int i, j = 0;
   5   #pragma omp parallel if (2, 1)                /* { dg-error "expected" } */
   6   ;
   7   #pragma omp parallel num_threads (3, 4)       /* { dg-error "expected" } */
   8   ;
   9   #pragma omp teams num_teams (4, 5)            /* { dg-error "expected" } */
  10   ;
  11   #pragma omp teams thread_limit (6, 7)         /* { dg-error "expected" } */
  12   ;
  13   #pragma omp for linear (j : 8, 9)             /* { dg-error "expected" } */
  14   for (i = 0; i < 30; i++)
  15     j += (8, 9);
  16   #pragma omp for schedule (static, 3, 4)       /* { dg-error "expected" } */
  17   for (i = 0; i < 30; i++)
  18     ;
  19   #pragma omp for collapse (1, 1)               /* { dg-error "expected" } */
  20   for (i = 0; i < 30; i++)
  21     ;
  22   #pragma omp for ordered (1, 1)                /* { dg-error "expected" } */
  23   for (i = 0; i < 30; i++)
  24     ;
  25   #pragma omp simd safelen (3, 4)               /* { dg-error "expected" } */
  26   for (i = 0; i < 30; i++)
  27     ;
  28   #pragma omp simd simdlen (4, 8)               /* { dg-error "expected" } */
  29   for (i = 0; i < 30; i++)
  30     ;
  31   #pragma omp simd aligned (p: 4, 8)            /* { dg-error "expected" } */
  32   for (i = 0; i < 30; i++)
  33     ;
  34   #pragma omp teams
  35   #pragma omp distribute dist_schedule (static, 6, 7) /* { dg-error "expected" } */
  36   for (i = 0; i < 30; i++)
  37     ;
  38   #pragma omp task final (8, 1)                 /* { dg-error "expected" } */
  39   ;
  40   #pragma omp task priority (2, 3)              /* { dg-error "expected" } */
  41   ;
  42   #pragma omp taskloop grainsize (4, 5)         /* { dg-error "expected" } */
  43   for (i = 0; i < 30; i++)
  44     ;
  45   #pragma omp taskloop num_tasks (5, 6)         /* { dg-error "expected" } */
  46   for (i = 0; i < 30; i++)
  47     ;
  48   #pragma omp target device (5, 1)              /* { dg-error "expected" } */
  49   ;
  50   #pragma omp critical (baz) hint (2, 3)        /* { dg-error "expected" } */
  51   ;
  52 }