Mercurial > hg > CbC > CbC_gcc

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /* { dg-do run } */
2 /* { dg-require-effective-target cilkplus_runtime } */
3 /* { dg-options "-fcilkplus" } */
4
5 #include <stdarg.h>
6 #include <stdlib.h>
7
8
9 double compute_total (int no_elements, ...);
10
11 int main(void)
12 {
13 double array[5] = {5.0, 4.0, 9.0, 3.0, 4.0};
14 double array2[5] = {5.0, 6.0, 8.0, 6.0};
15 double yy=0, xx=0, xx_serial, yy_serial;
16
17 yy = _Cilk_spawn compute_total(5,array[0],array[1],array[2],
18 array[3], array[4]);
19 xx= compute_total(4,array2[0],array2[1],array2[2], array2[3]);
20
21 _Cilk_sync;
22
23 yy_serial = compute_total(5,array[0],array[1],array[2], array[3], array[4]);
24 xx_serial = compute_total(4,array2[0],array2[1],array2[2], array2[3]);
25
26 if ((xx + yy) != (xx_serial + yy_serial))
27 return 1;
28 return 0;
29
30 }
31
32
33 double compute_total (int no_elements, ...)
34 {
35 double total = 0;
36 va_list args;
37 va_start(args, no_elements);
38 int ii = 0;
39 for (ii = 0; ii < no_elements; ii++)
40 {
41 total += va_arg(args,double);
42 }
43 va_end(args);
44
45 return total;
46 }
47