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-17.c] - Diff between revs 149 and 154

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

`Check that constant folding of built-in math functions doesn't`	`Check that constant folding of built-in math functions doesn't`
`break anything and produces the expected results.`	`break anything and produces the expected results.`

`Written by Roger Sayle, 25th May 2003. */`	`Written by Roger Sayle, 25th May 2003. */`

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

`extern void link_error(void);`	`extern void link_error(void);`

`extern double exp(double);`	`extern double exp(double);`
`extern double atan(double);`	`extern double atan(double);`

`int main()`	`int main()`
`{`	`{`
`if (exp (1.0) < 2.71 \|\| exp (1.0) > 2.72)`	`if (exp (1.0) < 2.71 \|\| exp (1.0) > 2.72)`
`link_error ();`	`link_error ();`
`if (exp (2.0) < 7.38 \|\| exp (2.0) > 7.39)`	`if (exp (2.0) < 7.38 \|\| exp (2.0) > 7.39)`
`link_error ();`	`link_error ();`
`if (exp (-2.0) < 0.13 \|\| exp (-2.0) > 0.14)`	`if (exp (-2.0) < 0.13 \|\| exp (-2.0) > 0.14)`
`link_error ();`	`link_error ();`
`if (atan (1.0) < 0.78 \|\| atan (1.0) > 0.79)`	`if (atan (1.0) < 0.78 \|\| atan (1.0) > 0.79)`
`link_error ();`	`link_error ();`

`return 0;`	`return 0;`
`}`	`}`