*** 119,136 ****
  /* INDENT ON */
  
  
  double
  __k_tan(double x, double y, int k) {
!         double a, t, z, w, s, c, r, rh, xh, xl;
          int i, j, hx, ix;
  
          t = one;
          hx = ((int *) &x)[HIWORD];
          ix = hx & 0x7fffffff;
!         if (ix < 0x3fc40000) {
!                 if (ix < 0x3e400000) {
                          if ((i = (int) x) == 0)         /* generate inexact */
                                  w = x;
                          t = y;
                  } else {
                          z = x * x;
--- 119,136 ----
  /* INDENT ON */
  
  
  double
  __k_tan(double x, double y, int k) {
!         double a, t, z, w = 0.0L, s, c, r, rh, xh, xl;
          int i, j, hx, ix;
  
          t = one;
          hx = ((int *) &x)[HIWORD];
          ix = hx & 0x7fffffff;
!         if (ix < 0x3fc40000) {          /* 0.15625 */
!                 if (ix < 0x3e400000) {  /* 2^-27 */
                          if ((i = (int) x) == 0)         /* generate inexact */
                                  w = x;
                          t = y;
                  } else {
                          z = x * x;