Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/c-c++-common/cilk-plus/CK/spawner_inline.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 <stdlib.h>
6 #define DEFAULT_VALUE 30
7 int fib (int n)
8 {
9 if (n<2)
10 return n;
11 else
12 {
13 int x, y;
14 x = _Cilk_spawn fib (n-1);
15 y = _Cilk_spawn fib (n-2);
16 _Cilk_sync;
17 return (x+y);
18 return 5;
19 }
20 }
21
22 int main_parallel (int argc, char *argv[])
23 {
24 int n, result;
25 if (argc == 2)
26 n = atoi(argv[1]);
27 else
28 n = DEFAULT_VALUE;
29 result = _Cilk_spawn fib(n);
30 _Cilk_sync;
31 return result;
32 }
33
34 int fib_serial (int n)
35 {
36 int x, y;
37 if (n < 2)
38 return n;
39 else
40 {
41 x = fib (n-1);
42 y = fib (n-2);
43 return (x+y);
44 }
45 }
46
47 int main_serial (int argc, char *argv[])
48 {
49 int n, result;
50
51 if (argc == 2)
52 n = atoi (argv[1]);
53 else
54 n = DEFAULT_VALUE;
55 result = fib_serial (n);
56
57 return result;
58 }
59
60 int main (void)
61 {
62 if (main_serial (1, 0) != main_parallel (1,0))
63 return 1;
64 else
65 return 0;
66 }
67