URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20030125-1.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
/* Verify whether math functions are simplified. */ double sin(double); double floor(double); float t(float a) { return sin(a); } float q(float a) { return floor(a); } double q1(float a) { return floor(a); } main() { #ifdef __OPTIMIZE__ if (t(0)!=0) abort (); if (q(0)!=0) abort (); if (q1(0)!=0) abort (); #endif return 0; } __attribute__ ((noinline)) double floor(double a) { abort (); } __attribute__ ((noinline)) float floorf(float a) { return a; } __attribute__ ((noinline)) double sin(double a) { abort (); } __attribute__ ((noinline)) float sinf(float a) { return a; }
Go to most recent revision | Compare with Previous | Blame | View Log