1 /* { dg-do link } */
2 /* { dg-require-effective-target ia32 } */
3 /* { dg-options "-O2 -march=pentiumpro" } */
4 
5 extern __inline  double
__expm1(double __x)6 __expm1 (double __x)
7 {
8   double __temp;
9   __temp -= 1.0;
10   return __temp;
11 }
12 extern __inline  double
__sgn1(double __x)13 __sgn1 (double __x)
14 {
15   return __x >= 0.0 ? 1.0 : -1.0;
16 }
17 double
tanh(double __x)18 tanh (double __x)
19 {
20   register double __exm1 = __expm1 (__x);
21   return __exm1 / (__exm1 + 2.0) * __sgn1 (-__x);
22 }
main()23 main ()
24 {
25   return tanh (3.45) != 0;
26 }
27