1/* { dg-do run } */ 2 3extern 4#ifdef __cplusplus 5"C" 6#endif 7void abort (); 8 9struct S { int s; struct S *t; }; 10 11void 12foo (struct S *out, struct S *in) 13{ 14 out->s += in->s; 15} 16 17void 18bar (struct S *x) 19{ 20 if (x->s != 6) abort (); 21 x->s = 15; 22} 23 24void 25baz (struct S *x, struct S *y) 26{ 27 x->s = 6; 28 x->t = x; 29 (void) y; 30} 31 32#pragma omp declare reduction (foo: struct S: foo (&omp_out, &omp_in)) \ 33 initializer (omp_priv = { 8, &omp_priv }) 34#pragma omp declare reduction (foo: char, int, short: omp_out += omp_in - 4) \ 35 initializer (omp_priv = 4) 36#pragma omp declare reduction (+: struct S: foo (&omp_out, &omp_in)) \ 37 initializer (baz (&omp_priv, &omp_orig)) 38 39void 40test (struct S s, struct S t) 41{ 42 int q = 0; 43 #pragma omp parallel num_threads (4) reduction (+: s, q) reduction (foo: t) 44 { 45 if (s.s != 6 || s.t != &s || t.s != 8 || t.t != &t) 46 abort (); 47 s.s = 2; 48 t.s = 3; 49 q = 1; 50 } 51 if (s.s != 12 + 2 * q || t.s != 14 + 3 * q) 52 abort (); 53} 54 55int 56main () 57{ 58 struct S s, t; 59 s.s = 9; t.s = 10; 60 int h = 30, v = 2, q = 0; 61 #pragma omp declare reduction (foo: struct S: omp_out.s *= omp_in.s) \ 62 initializer (omp_priv = omp_orig) 63 { 64 #pragma omp declare reduction (foo: struct S: omp_out.s += omp_in.s) \ 65 initializer (omp_priv = omp_orig) 66 #pragma omp parallel num_threads (4) reduction (+: t, q) \ 67 reduction (min: h) reduction (foo: s, v) 68 { 69 if (s.s != 9 || t.s != 6 || v != 4 || h != __INT_MAX__) abort (); 70 asm volatile ("" : "+m" (s.s), "+m" (t.s)); 71 asm volatile ("" : "+r" (h), "+r" (v)); 72 h = t.s; s.s++; t.s++; v++; q++; 73 } 74 } 75 if (h != 6 || s.s != 9 + q * 10 || t.s != 10 + q * 7 || v != 2 + q) 76 abort (); 77 s.s = 12; 78 t.s = 14; 79 test (s, t); 80 return 0; 81} 82