URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [387-1.c] - Rev 848
Go to most recent revision | Compare with Previous | Blame | View Log
/* Verify that -mno-fancy-math-387 works. */ /* { dg-do compile } */ /* { dg-require-effective-target ia32 } */ /* { dg-skip-if "" { i?86-*-* x86_64-*-* } { "-march=*" } { "-march=i386" } } */ /* { dg-options "-O -ffast-math -mfpmath=387 -mno-fancy-math-387 -march=i386" } */ /* { dg-final { scan-assembler "call\t(.*)sin" } } */ /* { dg-final { scan-assembler "call\t(.*)cos" } } */ /* { dg-final { scan-assembler "call\t(.*)sqrt" } } */ /* { dg-final { scan-assembler "call\t(.*)atan2" } } */ /* { dg-final { scan-assembler "call\t(.*)log" } } */ /* { dg-final { scan-assembler "call\t(.*)exp" } } */ /* { dg-final { scan-assembler "call\t(.*)tan" } } */ /* { dg-final { scan-assembler "call\t(.*)fmod" } } */ double f1(double x) { return __builtin_sin(x); } double f2(double x) { return __builtin_cos(x); } double f3(double x) { return __builtin_sqrt(x); } double f4(double x, double y) { return __builtin_atan2(x,y); } double f5(double x) { return __builtin_log(x); } double f6(double x) { return __builtin_exp(x); } double f7(double x) { return __builtin_tan(x); } double f8(double x, double y) { return __builtin_fmod(x,y); }
Go to most recent revision | Compare with Previous | Blame | View Log