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

   1 /* { dg-do compile } */
   2 /* { dg-options "-fopenmp" } */
   3
   4 struct W { int w; };
   5 void init (struct W *, int, int *);
   6 int v;
   7 #pragma omp declare reduction (foo : long int : omp_out |= v)   /* { dg-error "combiner refers to variable" } */
   8 #pragma omp declare reduction (foo : char : omp_out = v)        /* { dg-error "combiner refers to variable" } */
   9 typedef short T;
  10 #pragma omp declare reduction (foo : T : omp_out += v)  /* { dg-error "combiner refers to variable" } */
  11 #pragma omp declare reduction (foo : int : v *= omp_in) /* { dg-error "combiner refers to variable" } */
  12 #pragma omp declare reduction (foo : struct W : omp_out.w *= omp_in.w + v) /* { dg-error "combiner refers to variable" } */
  13
  14 void
  15 foo (int v)
  16 {
  17   #pragma omp declare reduction (foo : long int : omp_out |= v) /* { dg-error "combiner refers to variable" } */
  18   #pragma omp declare reduction (foo : char : omp_out = v)      /* { dg-error "combiner refers to variable" } */
  19   #pragma omp declare reduction (foo : T : omp_out += v)        /* { dg-error "combiner refers to variable" } */
  20   #pragma omp declare reduction (foo : int : v *= omp_in)       /* { dg-error "combiner refers to variable" } */
  21   #pragma omp declare reduction (foo : struct W : omp_out.w *= omp_in.w + v) /* { dg-error "combiner refers to variable" } */
  22 }
  23
  24 #pragma omp declare reduction (bar : long int : omp_out |= omp_in) initializer (omp_priv = v) /* { dg-error "initializer refers to variable" } */
  25 #pragma omp declare reduction (bar : char : omp_out += omp_in) initializer (omp_priv = ((char) v)) /* { dg-error "initializer refers to variable" } */
  26 #pragma omp declare reduction (bar : T : omp_out += omp_in) initializer (omp_priv = (short) v) /* { dg-error "initializer refers to variable" } */
  27 #pragma omp declare reduction (bar : _Complex double : omp_out *= omp_in) initializer (omp_priv = (v)) /* { dg-error "initializer refers to variable" } */
  28 #pragma omp declare reduction (bar : struct W : omp_out.w *= omp_in.w) initializer (omp_priv = { v } ) /* { dg-error "initializer refers to variable" } */
  29 #pragma omp declare reduction (bar2 : struct W : omp_out.w *= omp_in.w) initializer (init (&omp_priv, v, (int *) 0)) /* { dg-error "initializer refers to variable" } */
  30 #pragma omp declare reduction (bar3 : struct W : omp_out.w *= omp_in.w) initializer (init (&omp_priv, 0, &v)) /* { dg-error "initializer refers to variable" } */
  31
  32 void
  33 bar (int v)
  34 {
  35   #pragma omp declare reduction (bar : long int : omp_out |= omp_in) initializer (omp_priv = v) /* { dg-error "initializer refers to variable" } */
  36   #pragma omp declare reduction (bar : char : omp_out += omp_in) initializer (omp_priv = ((char) v)) /* { dg-error "initializer refers to variable" } */
  37   #pragma omp declare reduction (bar : T : omp_out += omp_in) initializer (omp_priv = (short) v) /* { dg-error "initializer refers to variable" } */
  38   #pragma omp declare reduction (bar : _Complex double : omp_out *= omp_in) initializer (omp_priv = (v)) /* { dg-error "initializer refers to variable" } */
  39   #pragma omp declare reduction (bar : struct W : omp_out.w *= omp_in.w) initializer (omp_priv = { v }) /* { dg-error "initializer refers to variable" } */
  40   #pragma omp declare reduction (bar2 : struct W : omp_out.w *= omp_in.w) initializer (init (&omp_priv, v, (int *) 0)) /* { dg-error "initializer refers to variable" } */
  41   #pragma omp declare reduction (bar3 : struct W : omp_out.w *= omp_in.w) initializer (init (&omp_priv, 0, &v)) /* { dg-error "initializer refers to variable" } */
  42 }