1 /* { dg-do compile } */
2 /* { dg-options "-fopenmp-simd -fdump-tree-original" } */
3 
4 extern void abort ();
5 int a[1024] __attribute__((aligned (32))) = { 1 };
6 struct S { int s; };
7 #pragma omp declare reduction (+:struct S:omp_out.s += omp_in.s)
8 #pragma omp declare reduction (foo:struct S:omp_out.s += omp_in.s)
9 #pragma omp declare reduction (foo:int:omp_out += omp_in)
10 
11 __attribute__((noinline, noclone)) int
foo(void)12 foo (void)
13 {
14   int i, u = 0;
15   struct S s, t;
16   s.s = 0; t.s = 0;
17   #pragma omp simd aligned(a : 32) reduction(+:s) reduction(foo:t, u)
18   for (i = 0; i < 1024; i++)
19     {
20       int x = a[i];
21       s.s += x;
22       t.s += x;
23       u += x;
24     }
25   if (t.s != s.s || u != s.s)
26     abort ();
27   return s.s;
28 }
29 
30 
bar(int n,float * a,float * b)31 void bar(int n, float *a, float *b)
32 {
33   int i;
34 #pragma omp parallel for simd num_threads(4) safelen(64)
35   for (i = 0; i < n ; i++)
36     a[i] = b[i];
37 }
38 
39 /* { dg-final { scan-tree-dump-times "pragma omp simd reduction\\(u\\) reduction\\(t\\) reduction\\(\\+:s\\) aligned\\(a:32\\)" 1 "original" } } */
40 /* { dg-final { scan-tree-dump-times "pragma omp simd safelen\\(64\\)" 1 "original" } } */
41 /* { dg-final { scan-tree-dump-not "omp parallel" "original" } } */
42 /* { dg-final { scan-tree-dump-not "omp for" "original" } } */
43 /* { dg-final { cleanup-tree-dump "original" } } */
44