1 /* Copyright (C) 2003 Free Software Foundation.
3 Verify that built-in math function constant folding doesn't break
4 anything and produces the expected results.
6 Written by Roger Sayle, 8th June 2003. */
9 /* { dg-options "-O2 -ffast-math" } */
11 extern void link_error(void);
15 if (cos(x
) != cos(-x
))
18 if (sin(x
)/cos(x
) != tan(x
))
21 if (cos(x
)/sin(x
) != 1.0/tan(x
))
24 if (tan(x
)*cos(x
) != sin(x
))
27 if (cos(x
)*tan(x
) != sin(x
))
31 void test2(double x
, double y
)
33 if (-tan(x
-y
) != tan(y
-x
))
36 if (-sin(x
-y
) != sin(y
-x
))
42 if (cosf(x
) != cosf(-x
))
45 if (sinf(x
)/cosf(x
) != tanf(x
))
48 if (cosf(x
)/sinf(x
) != 1.0f
/tanf(x
))
51 if (tanf(x
)*cosf(x
) != sinf(x
))
54 if (cosf(x
)*tanf(x
) != sinf(x
))
58 void test2f(float x
, float y
)
60 if (-tanf(x
-y
) != tanf(y
-x
))
63 if (-sinf(x
-y
) != sinf(y
-x
))
68 void test1l(long double x
)
70 if (cosl(x
) != cosl(-x
))
73 if (sinl(x
)/cosl(x
) != tanl(x
))
76 if (cosl(x
)/sinl(x
) != 1.0l/tanl(x
))
79 if (tanl(x
)*cosl(x
) != sinl(x
))
82 if (cosl(x
)*tanl(x
) != sinl(x
))
86 void test2l(long double x
, long double y
)
88 if (-tanl(x
-y
) != tanl(y
-x
))
91 if (-sinl(x
-y
) != sinl(y
-x
))