URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [pr19340.c] - Rev 298
Compare with Previous | Blame | View Log
/* { dg-do compile } */ /* { dg-options "-O1 -fschedule-insns2 -fsched2-use-superblocks" } */ /* { dg-skip-if "No scheduling" { mmix-*-* cris-*-* crisv32-*-* fido-*-* m68k-*-* m32c-*-* avr-*-* moxie-*-* } { "*" } { "" } } */ extern double f (double x); double g (int a) { int b, c, d, e = 0; double h; for (d = 0; d < a; d++) for (c = 0; c < a; c++) b = 1; h = (double) e / (double) a; if (h) { h = 1.0 / h; h = f (h); } else h = 1.0; return h; }