URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [complex-3.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
struct complex { float r; float i; }; struct complex cmplx (float, float); struct complex f (float a, float b) { struct complex c; c.r = a; c.i = b; return c; } main () { struct complex z = f (1.0, 0.0); if (z.r != 1.0 || z.i != 0.0) abort (); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log