111
|
1 /* Copyright (C) 2004 Free Software Foundation.
|
|
2
|
|
3 Check tan, tanf and tanl built-in functions.
|
|
4
|
|
5 Written by Uros Bizjak, 7th April 2004. */
|
|
6
|
|
7 /* { dg-do compile } */
|
|
8 /* { dg-options "-O2 -ffast-math" } */
|
|
9
|
|
10 extern double tan(double);
|
|
11 extern float tanf(float);
|
|
12 extern long double tanl(long double);
|
|
13
|
|
14
|
|
15 double test1(double x)
|
|
16 {
|
|
17 return tan(x);
|
|
18 }
|
|
19
|
|
20 float test1f(float x)
|
|
21 {
|
|
22 return tanf(x);
|
|
23 }
|
|
24
|
|
25 long double test1l(long double x)
|
|
26 {
|
|
27 return tanl(x);
|
|
28 }
|
|
29
|