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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [20030826-1.c] - Diff between revs 298 and 338

Rev 298	Rev 338
`/* Copyright (C) 2003 Free Software Foundation.`	`/* Copyright (C) 2003 Free Software Foundation.`

`Check that constant folding of mathematical expressions doesn't`	`Check that constant folding of mathematical expressions doesn't`
`break anything.`	`break anything.`

`Written by Roger Sayle, 24th August 2003. */`	`Written by Roger Sayle, 24th August 2003. */`

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

`void abort(void);`	`void abort(void);`

`double foo(double x)`	`double foo(double x)`
`{`	`{`
`return 12.0/(x*3.0);`	`return 12.0/(x*3.0);`
`}`	`}`

`double bar(double x)`	`double bar(double x)`
`{`	`{`
`return (3.0/x)*4.0;`	`return (3.0/x)*4.0;`
`}`	`}`

`int main()`	`int main()`
`{`	`{`
`if (foo(2.0) != 2.0)`	`if (foo(2.0) != 2.0)`
`abort ();`	`abort ();`

`if (bar(2.0) != 6.0)`	`if (bar(2.0) != 6.0)`
`abort ();`	`abort ();`

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