blob: a724c640e993a0e1aabcb3a35426c39d72297ac7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
/* PR tree-optimization/56424 */
/* { dg-do compile } */
/* { dg-options "-O2 -fexceptions -fnon-call-exceptions" } */
extern long double cosl (long double);
extern long double sinl (long double);
extern long double reml (long double, long double);
long double my_cos (long double arg)
{
return cosl (arg);
}
long double my_sin (long double arg)
{
if (__builtin_fabs (arg) < 1.0)
return arg;
return sinl (arg);
}
long double my_cot (long double arg, long double cycle)
{
long double t = reml (arg, cycle);
return my_cos (t) / my_sin (t);
}
long double my_tan (long double arg, long double cycle)
{
long double t = reml (arg, cycle);
return my_sin (t) / my_cos (t);
}
|
