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.dg/] [builtins-21.c] - Rev 305
Go to most recent revision | Compare with Previous | Blame | View Log
/* Copyright (C) 2003 Free Software Foundation. Verify that built-in math function constant folding doesn't cause any problems for the compiler. Written by Roger Sayle, 7th June 2003. */ /* { dg-do compile } */ /* { dg-options "-O2 -ffast-math" } */ extern double fabs (double); extern float fabsf (float); extern long double fabsl (long double); extern double sqrt (double); extern float sqrtf (float); extern long double sqrtl (long double); extern double exp (double); extern float expf (float); extern long double expl (long double); double test1(double x) { return fabs(x*x); } double test2(double x) { return fabs(sqrt(x)+2.0); } double test3(double x) { return fabs(3.0*exp(x)); } float test1f(float x) { return fabsf(x*x); } float test2f(float x) { return fabsf(sqrtf(x)+2.0f); } float test3f(float x) { return fabsf(3.0f*expf(x)); } long double test1l(long double x) { return fabsl(x*x); } long double test2l(long double x) { return fabsl(sqrtl(x)+2.0l); } long double test3l(long double x) { return fabsl(3.0l*expl(x)); }
Go to most recent revision | Compare with Previous | Blame | View Log