annotate gcc/testsuite/c-c++-common/cilk-plus/CK/varargs_test.c @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do run } */
kono
parents:
diff changeset
2 /* { dg-require-effective-target cilkplus_runtime } */
kono
parents:
diff changeset
3 /* { dg-options "-fcilkplus" } */
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 #include <stdarg.h>
kono
parents:
diff changeset
6 #include <stdlib.h>
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 double compute_total (int no_elements, ...);
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 int main(void)
kono
parents:
diff changeset
12 {
kono
parents:
diff changeset
13 double array[5] = {5.0, 4.0, 9.0, 3.0, 4.0};
kono
parents:
diff changeset
14 double array2[5] = {5.0, 6.0, 8.0, 6.0};
kono
parents:
diff changeset
15 double yy=0, xx=0, xx_serial, yy_serial;
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 yy = _Cilk_spawn compute_total(5,array[0],array[1],array[2],
kono
parents:
diff changeset
18 array[3], array[4]);
kono
parents:
diff changeset
19 xx= compute_total(4,array2[0],array2[1],array2[2], array2[3]);
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 _Cilk_sync;
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 yy_serial = compute_total(5,array[0],array[1],array[2], array[3], array[4]);
kono
parents:
diff changeset
24 xx_serial = compute_total(4,array2[0],array2[1],array2[2], array2[3]);
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 if ((xx + yy) != (xx_serial + yy_serial))
kono
parents:
diff changeset
27 return 1;
kono
parents:
diff changeset
28 return 0;
kono
parents:
diff changeset
29
kono
parents:
diff changeset
30 }
kono
parents:
diff changeset
31
kono
parents:
diff changeset
32
kono
parents:
diff changeset
33 double compute_total (int no_elements, ...)
kono
parents:
diff changeset
34 {
kono
parents:
diff changeset
35 double total = 0;
kono
parents:
diff changeset
36 va_list args;
kono
parents:
diff changeset
37 va_start(args, no_elements);
kono
parents:
diff changeset
38 int ii = 0;
kono
parents:
diff changeset
39 for (ii = 0; ii < no_elements; ii++)
kono
parents:
diff changeset
40 {
kono
parents:
diff changeset
41 total += va_arg(args,double);
kono
parents:
diff changeset
42 }
kono
parents:
diff changeset
43 va_end(args);
kono
parents:
diff changeset
44
kono
parents:
diff changeset
45 return total;
kono
parents:
diff changeset
46 }
kono
parents:
diff changeset
47