Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/cilk-plus/CK/fib_no_sync.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
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 #if HAVE_IO
kono
parents:
diff changeset
6 #include <stdio.h>
kono
parents:
diff changeset
7 #endif
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 #define FIB_ITERATION 30
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 int fib (int);
kono
parents:
diff changeset
12 int fib_serial (int);
kono
parents:
diff changeset
13
kono
parents:
diff changeset
14 int main(void)
kono
parents:
diff changeset
15 {
kono
parents:
diff changeset
16 int ii = 0;
kono
parents:
diff changeset
17 int fib_result[FIB_ITERATION+1], fib_serial_result[FIB_ITERATION+1];
kono
parents:
diff changeset
18 #if HAVE_IO
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 for (ii = 0; ii <= FIB_ITERATION; ii++)
kono
parents:
diff changeset
21 printf("fib (%2d) = %10d\n", ii, fib (ii));
kono
parents:
diff changeset
22 #else
kono
parents:
diff changeset
23 for (ii = 0; ii <= FIB_ITERATION; ii++)
kono
parents:
diff changeset
24 {
kono
parents:
diff changeset
25 fib_result[ii] = fib (ii);
kono
parents:
diff changeset
26 }
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 fib_serial_result[0] = 0;
kono
parents:
diff changeset
29 fib_serial_result[1] = 1;
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 for (ii = 2; ii <= FIB_ITERATION; ii++)
kono
parents:
diff changeset
32 fib_serial_result[ii] = fib_serial_result[ii-1] + fib_serial_result[ii-2];
kono
parents:
diff changeset
33
kono
parents:
diff changeset
34 for (ii = 0; ii <= FIB_ITERATION; ii++)
kono
parents:
diff changeset
35 {
kono
parents:
diff changeset
36 if (fib_result[ii] != fib_serial_result[ii])
kono
parents:
diff changeset
37 __builtin_abort ();
kono
parents:
diff changeset
38 }
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 #endif
kono
parents:
diff changeset
41 return 0;
kono
parents:
diff changeset
42 }
kono
parents:
diff changeset
43
kono
parents:
diff changeset
44 int fib_serial (int n)
kono
parents:
diff changeset
45 {
kono
parents:
diff changeset
46 int x = 0, y = 0;
kono
parents:
diff changeset
47 if (n < 2)
kono
parents:
diff changeset
48 return n;
kono
parents:
diff changeset
49 else
kono
parents:
diff changeset
50 {
kono
parents:
diff changeset
51 x = fib_serial (n-1);
kono
parents:
diff changeset
52 y = fib_serial (n-2);
kono
parents:
diff changeset
53 return (x+y);
kono
parents:
diff changeset
54 }
kono
parents:
diff changeset
55 }
kono
parents:
diff changeset
56
kono
parents:
diff changeset
57 int fib(int n)
kono
parents:
diff changeset
58 {
kono
parents:
diff changeset
59 if (n < 2)
kono
parents:
diff changeset
60 return n;
kono
parents:
diff changeset
61 else
kono
parents:
diff changeset
62 {
kono
parents:
diff changeset
63 int x = _Cilk_spawn fib(n-1);
kono
parents:
diff changeset
64 int y = fib(n-2);
kono
parents:
diff changeset
65 return (x+y);
kono
parents:
diff changeset
66 }
kono
parents:
diff changeset
67 }