URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [complex-5.c] - Rev 297
Compare with Previous | Blame | View Log
float __complex__ p (float __complex__ a, float __complex__ b) { return a + b; } float __complex__ x = 1.0 + 14.0 * (1.0fi); float __complex__ y = 7.0 + 5.0 * (1.0fi); float __complex__ w = 8.0 + 19.0 * (1.0fi); float __complex__ z; main () { z = p (x,y); y = p (x, 1.0f / z); if (z != w) abort (); exit (0); }