URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20070614-1.c] - Rev 688
Compare with Previous | Blame | View Log
extern void abort (void); _Complex v = 3.0 + 1.0iF; void foo (_Complex z, int *x) { if (z != v) abort (); } _Complex bar (_Complex z) __attribute__ ((pure)); _Complex bar (_Complex z) { return v; } int baz (void) { int a, i; for (i = 0; i < 6; i++) foo (bar (1.0iF * i), &a); return 0; } int main () { baz (); return 0; }