1 /* { dg-additional-options "-fdump-tree-gimple" } */
2 /* Integer reductions.  */
3 
4 #define n 1000
5 
6 int
main(void)7 main(void)
8 {
9   int i;
10   int result, array[n];
11   int lresult;
12 
13   /* '+' reductions.  */
14 #pragma acc parallel
15 #pragma acc loop gang worker vector reduction (+:result)
16   for (i = 0; i < n; i++)
17     result += array[i];
18 
19   /* '*' reductions.  */
20 #pragma acc parallel
21 #pragma acc loop gang worker vector reduction (*:result)
22   for (i = 0; i < n; i++)
23     result *= array[i];
24 
25   /* 'max' reductions.  */
26 #pragma acc parallel
27 #pragma acc loop gang worker vector reduction (max:result)
28   for (i = 0; i < n; i++)
29     result = result > array[i] ? result : array[i];
30 
31   /* 'min' reductions.  */
32 #pragma acc parallel
33 #pragma acc loop gang worker vector reduction (min:result)
34   for (i = 0; i < n; i++)
35     result = result < array[i] ? result : array[i];
36 
37   /* '&' reductions.  */
38 #pragma acc parallel
39 #pragma acc loop gang worker vector reduction (&:result)
40   for (i = 0; i < n; i++)
41     result &= array[i];
42 
43   /* '|' reductions.  */
44 #pragma acc parallel
45 #pragma acc loop gang worker vector reduction (|:result)
46   for (i = 0; i < n; i++)
47     result |= array[i];
48 
49   /* '^' reductions.  */
50 #pragma acc parallel
51 #pragma acc loop gang worker vector reduction (^:result)
52   for (i = 0; i < n; i++)
53     result ^= array[i];
54 
55   /* '&&' reductions.  */
56 #pragma acc parallel
57 #pragma acc loop gang worker vector reduction (&&:lresult)
58   for (i = 0; i < n; i++)
59     lresult = lresult && (result > array[i]);
60 
61   /* '||' reductions.  */
62 #pragma acc parallel
63 #pragma acc loop gang worker vector reduction (||:lresult)
64   for (i = 0; i < n; i++)
65     lresult = lresult || (result > array[i]);
66 
67   return 0;
68 }
69 
70 /* Check that default copy maps are generated for loop reductions.  */
71 /* { dg-final { scan-tree-dump-times "map\\(tofrom:result \\\[len: \[0-9\]+\\\]\\)" 7 "gimple" } } */
72 /* { dg-final { scan-tree-dump-times "map\\(tofrom:lresult \\\[len: \[0-9\]+\\\]\\)" 2 "gimple" } } */
73