1 /* { dg-do run { target { ! { hppa*-*-hpux* } } } } */
2
3 /* complex reductions. */
4
5 #include <stdlib.h>
6 #include <complex.h>
7 #include "reduction.h"
8
9 #define ng 8
10 #define nw 4
11 #define vl 32
12
13 static void
test_reductions(void)14 test_reductions (void)
15 {
16 const int n = 10;
17 int i;
18 double _Complex array[n];
19
20 for (i = 0; i < n; i++)
21 array[i] = i+1;
22
23 /* Gang reductions. */
24 check_reduction_op (double, +, 0, creal (array[i]), num_gangs (ng), gang);
25 check_reduction_op (double, *, 1, creal (array[i]), num_gangs (ng), gang);
26
27 /* Worker reductions. */
28 check_reduction_op (double, +, 0, creal (array[i]), num_workers (nw),
29 worker);
30 check_reduction_op (double, *, 1, creal (array[i]), num_workers (nw),
31 worker);
32
33 /* Vector reductions. */
34 check_reduction_op (double, +, 0, creal (array[i]), vector_length (vl),
35 vector);
36 check_reduction_op (double, *, 1, creal (array[i]), vector_length (vl),
37 vector);
38
39 /* Combined reductions. */
40 check_reduction_op (double, +, 0, creal (array[i]), num_gangs (ng)
41 num_workers (nw) vector_length (vl), gang worker
42 vector);
43 check_reduction_op (double, *, 1, creal (array[i]), num_gangs (ng)
44 num_workers (nw) vector_length (vl), gang worker
45 vector);
46 }
47
48 int
main(void)49 main (void)
50 {
51 test_reductions ();
52 return 0;
53 }
54