Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/dfp/pr31385.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 compile } */
kono
parents:
diff changeset
2 /* { dg-options "-O2" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 typedef float fp_t __attribute__((mode(SD)));
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 extern fp_t g(fp_t);
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 fp_t
kono
parents:
diff changeset
9 bug(fp_t x)
kono
parents:
diff changeset
10 {
kono
parents:
diff changeset
11 fp_t result;
kono
parents:
diff changeset
12 int n;
kono
parents:
diff changeset
13 fp_t f, f3, y, z;
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 n = 0;
kono
parents:
diff changeset
16 y = 1.DF;
kono
parents:
diff changeset
17 f = g(x);
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 if (f < 0.DF)
kono
parents:
diff changeset
20 f = -f;
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 f3 = 2.DF;
kono
parents:
diff changeset
23
kono
parents:
diff changeset
24 z = (y + y + f / (y * y));
kono
parents:
diff changeset
25 y = (z + z) / (9.DF) + f3 / (z * z);
kono
parents:
diff changeset
26
kono
parents:
diff changeset
27 result = y;
kono
parents:
diff changeset
28
kono
parents:
diff changeset
29 return (result);
kono
parents:
diff changeset
30 }