Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gcc.c-torture/compile/acc1.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-options "-ffast-math" } */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 /* Fast maths allows tail recursion to be turned into iteration. */
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 double
kono
parents:
diff changeset
6 foo (int n, double f)
kono
parents:
diff changeset
7 {
kono
parents:
diff changeset
8 if (n == 0)
kono
parents:
diff changeset
9 return f;
kono
parents:
diff changeset
10 else
kono
parents:
diff changeset
11 return f + foo (n - 1, f);
kono
parents:
diff changeset
12 }
kono
parents:
diff changeset
13
kono
parents:
diff changeset
14 double
kono
parents:
diff changeset
15 bar (int n, double f)
kono
parents:
diff changeset
16 {
kono
parents:
diff changeset
17 if (n == 0)
kono
parents:
diff changeset
18 return f;
kono
parents:
diff changeset
19 else
kono
parents:
diff changeset
20 return f * bar (n - 1, f);
kono
parents:
diff changeset
21 }