Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gcc.dg/pr46728-12.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-options "-O2 -ffast-math -fno-inline -fno-unroll-loops -lm" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 #include <math.h>
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 extern void abort (void);
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 #define NVALS 6
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 static double
kono
parents:
diff changeset
11 convert_it (double x)
kono
parents:
diff changeset
12 {
kono
parents:
diff changeset
13 return pow (x, 1.0 / 3.0);
kono
parents:
diff changeset
14 }
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 int
kono
parents:
diff changeset
17 main (int argc, char *argv[])
kono
parents:
diff changeset
18 {
kono
parents:
diff changeset
19 double values[NVALS] = { 3.0, 1.95, 2.227, 729.0, 64.0, .0008797 };
kono
parents:
diff changeset
20 double PREC = 0.999999;
kono
parents:
diff changeset
21 unsigned i;
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 for (i = 0; i < NVALS; i++)
kono
parents:
diff changeset
24 if (fabs (convert_it (values[i]) / cbrt (values[i])) < PREC)
kono
parents:
diff changeset
25 abort ();
kono
parents:
diff changeset
26
kono
parents:
diff changeset
27 return 0;
kono
parents:
diff changeset
28 }