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/] [complex-5.c] - Diff between revs 297 and 338

Rev 297	Rev 338
`float __complex__`	`float __complex__`
`p (float __complex__ a, float __complex__ b)`	`p (float __complex__ a, float __complex__ b)`
`{`	`{`
`return a + b;`	`return a + b;`
`}`	`}`

`float __complex__ x = 1.0 + 14.0 * (1.0fi);`	`float __complex__ x = 1.0 + 14.0 * (1.0fi);`
`float __complex__ y = 7.0 + 5.0 * (1.0fi);`	`float __complex__ y = 7.0 + 5.0 * (1.0fi);`
`float __complex__ w = 8.0 + 19.0 * (1.0fi);`	`float __complex__ w = 8.0 + 19.0 * (1.0fi);`
`float __complex__ z;`	`float __complex__ z;`

`main ()`	`main ()`
`{`	`{`

`z = p (x,y);`	`z = p (x,y);`
`y = p (x, 1.0f / z);`	`y = p (x, 1.0f / z);`
`if (z != w)`	`if (z != w)`
`abort ();`	`abort ();`
`exit (0);`	`exit (0);`
`}`	`}`