Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gcc.dg/pr56424.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 1830386684a0
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /* PR tree-optimization/56424 */
2
3 /* { dg-do compile } */
4 /* { dg-options "-O2 -fexceptions -fnon-call-exceptions" } */
5
6 extern long double cosl (long double);
7 extern long double sinl (long double);
8 extern long double reml (long double, long double);
9
10 long double my_cos (long double arg)
11 {
12 return cosl (arg);
13 }
14
15 long double my_sin (long double arg)
16 {
17 if (__builtin_fabs (arg) < 1.0)
18 return arg;
19
20 return sinl (arg);
21 }
22
23 long double my_cot (long double arg, long double cycle)
24 {
25 long double t = reml (arg, cycle);
26 return my_cos (t) / my_sin (t);
27 }
28
29 long double my_tan (long double arg, long double cycle)
30 {
31 long double t = reml (arg, cycle);
32 return my_sin (t) / my_cos (t);
33 }