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.target/] [i386/] [387-9.c] - Rev 318
Compare with Previous | Blame | View Log
/* Verify that 387 fsincos instruction is generated. */ /* { dg-do compile } */ /* { dg-require-effective-target ilp32 } */ /* { dg-options "-O -funsafe-math-optimizations -march=i686" } */ extern double sin (double); extern double cos (double); extern void sincos (double, double *, double *); double f1(double x) { double s, c; sincos (x, &s, &c); return s + c; } double f2(double x) { double s, c, tmp; sincos (x, &s, &tmp); c = cos (x); return s + c; } double f3(double x) { double s, c, tmp; sincos (x, &tmp, &c); s = sin (x); return s + c; } /* { dg-final { scan-assembler "fsincos" } } */ /* { dg-final { scan-assembler-not "fsin " } } */ /* { dg-final { scan-assembler-not "fcos" } } */ /* { dg-final { scan-assembler-not "call" } } */