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/] [20070614-1.c] - Rev 308
Go to most recent revision | 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; }
Go to most recent revision | Compare with Previous | Blame | View Log