*** 58,67 ****
--- 58,68 ----
   *      tanhl(NaN) is NaN;
   *      only tanhl(0.0)=0.0 is exact for finite argument.
   */
  
  #include "libm.h"
+ #include "longdouble.h"
  
  static const long double small = 1.0e-20L, one = 1.0, two = 2.0,
  #ifndef lint
          big = 1.0e+20L,
  #endif
*** 69,78 ****
--- 70,80 ----
  
  long double
  tanhl(long double x) {
          long double t, y, z;
          int signx;
+         volatile long double dummy;
  
          if (isnanl(x))
                  return (x + x);         /* x is NaN */
          signx = signbitl(x);
          t = fabsl(x);
*** 83,93 ****
                  else if (t > small) {
                          y = expm1l(-t - t);
                          z = -y / (y + two);
                  } else {
  #ifndef lint
!                         volatile long double dummy = t + big;
                                                          /* inexact if t != 0 */
  #endif
                          return (x);
                  }
          } else if (!finitel(t))
--- 85,95 ----
                  else if (t > small) {
                          y = expm1l(-t - t);
                          z = -y / (y + two);
                  } else {
  #ifndef lint
!                         dummy = t + big;
                                                          /* inexact if t != 0 */
  #endif
                          return (x);
                  }
          } else if (!finitel(t))