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.c-torture/] [execute/] [pr29798.c] - Diff between revs 297 and 338

Rev 297	Rev 338
`extern void abort ();`	`extern void abort ();`

`int`	`int`
`main ()`	`main ()`
`{`	`{`
`int i;`	`int i;`
`double oldrho;`	`double oldrho;`
`double beta = 0.0;`	`double beta = 0.0;`
`double work = 1.0;`	`double work = 1.0;`
`for (i = 1; i <= 2; i++)`	`for (i = 1; i <= 2; i++)`
`{`	`{`
`double rho = work * work;`	`double rho = work * work;`
`if (i != 1)`	`if (i != 1)`
`beta = rho / oldrho;`	`beta = rho / oldrho;`
`if (beta == 1.0)`	`if (beta == 1.0)`
`abort ();`	`abort ();`

`/* All targets even remotely likely to ever get supported`	`/* All targets even remotely likely to ever get supported`
`use at least an even base, so there will never be any`	`use at least an even base, so there will never be any`
`floating-point rounding. All computation in this test`	`floating-point rounding. All computation in this test`
`case is exact for even bases. */`	`case is exact for even bases. */`
`work /= 2.0;`	`work /= 2.0;`
`oldrho = rho;`	`oldrho = rho;`
`}`	`}`
`return 0;`	`return 0;`
`}`	`}`