URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [powerpc/] [pr46728-11.c] - Rev 697
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "-O2 -ffast-math -fno-inline -fno-unroll-loops -lm -mpowerpc-gpopt" } */ #include <math.h> extern void abort (void); #define NVALS 6 static double convert_it (double x) { return pow (x, 0.75); } int main (int argc, char *argv[]) { double values[NVALS] = { 3.0, 1.95, 2.227, 4.0, 256.0, .0008797 }; double PREC = 0.999999; unsigned i; for (i = 0; i < NVALS; i++) { volatile double x, y; x = sqrt (values[i]); y = sqrt (sqrt (values[i])); if (fabs (convert_it (values[i]) / (x * y)) < PREC) abort (); } return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log