URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [complex-2.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
__complex__ double f (__complex__ double x, __complex__ double y) { x += y; return x; } __complex__ double ag = 1.0 + 1.0i; __complex__ double bg = -2.0 + 2.0i; main () { __complex__ double a, b, c; a = ag; b = -2.0 + 2.0i; c = f (a, b); if (a != 1.0 + 1.0i) abort (); if (b != -2.0 + 2.0i) abort (); if (c != -1.0 + 3.0i) abort (); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log