gcc/testsuite/c-c++-common/gomp/directive-1.c

   1 int thr;
   2 #pragma omp threadprivate, (thr)                /* { dg-error "expected '\\\(' before ',' token" } */
   3                                                 /* { dg-error "expected end of line before ',' token" "" { target c++ } .-1 } */
   4 #pragma omp declare reduction, (foo: int : omp_out += omp_in), initializer (omp_priv = 0)       /* { dg-error "expected '\\\(' before ',' token" } */
   5 void f1 (void);
   6 #pragma omp declare variant, (f1), match (user={condition(true)})       /* { dg-error "expected '\\\(' before ',' token" } */
   7 void f2 (void);
   8 int j;
   9 #pragma omp declare target, (j)                 /* { dg-error "expected end of line before ',' token" } */
  10
  11 typedef struct __attribute__((__aligned__ (sizeof (void *)))) omp_depend_t {
  12   char __omp_depend_t__[2 * sizeof (void *)];
  13 } omp_depend_t;
  14 extern omp_depend_t d;
  15
  16 void
  17 foo (void)
  18 {
  19   int i, k = 0, l = 0;
  20   #pragma omp allocate, (i)                     /* { dg-error "expected '\\\(' before ',' token" } */
  21                                                 /* { dg-error "expected end of line before ',' token" "" { target c++ } .-1 } */
  22                                                 /* { dg-message "not yet supported" "" { target c++ } .-2 } */
  23   #pragma omp critical, (bar)                   /* { dg-error "expected an OpenMP clause before '\\\(' token" } */
  24   ;
  25   #pragma omp flush, (k, l)                     /* { dg-error "expected '\\\(' or end of line before ',' token" "" { target c } } */
  26                                                 /* { dg-error "expected end of line before ',' token" "" { target c++ } .-1 } */
  27   #pragma omp depobj, (d) depend(in : l)        /* { dg-error "expected '\\\(' before ',' token" } */
  28 }