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