URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [builtins-8.c] - Diff between revs 149 and 154

Rev 149	Rev 154
`/* Copyright (C) 2003 Free Software Foundation.`	`/* Copyright (C) 2003 Free Software Foundation.`

`Verify that built-in math function constant folding of functions`	`Verify that built-in math function constant folding of functions`
`with one constant argument is correctly performed by the compiler.`	`with one constant argument is correctly performed by the compiler.`

`Written by Roger Sayle, 30th March 2003. */`	`Written by Roger Sayle, 30th March 2003. */`

`/* { dg-do run } */`	`/* { dg-do run } */`
`/* { dg-options "-O2 -ffast-math" } */`	`/* { dg-options "-O2 -ffast-math" } */`

`extern void abort(void);`	`extern void abort(void);`
`extern double pow(double, double);`	`extern double pow(double, double);`
`extern double sqrt(double);`	`extern double sqrt(double);`

`void test(double x)`	`void test(double x)`
`{`	`{`
`if (pow(x,-1.0) != 1.0/x)`	`if (pow(x,-1.0) != 1.0/x)`
`abort ();`	`abort ();`

`if (pow(x,2.0) != x*x)`	`if (pow(x,2.0) != x*x)`
`abort ();`	`abort ();`

`if (pow(x,-2.0) != 1.0/(x*x))`	`if (pow(x,-2.0) != 1.0/(x*x))`
`abort ();`	`abort ();`

`if (pow(x,0.5) != sqrt(x))`	`if (pow(x,0.5) != sqrt(x))`
`abort ();`	`abort ();`
`}`	`}`

`int main()`	`int main()`
`{`	`{`
`test (1.0);`	`test (1.0);`
`test (2.0);`	`test (2.0);`
`return 0;`	`return 0;`
`}`	`}`