*** 109,119 ****
  
  #define i0      0
  
  long double
  __k_tanl(long double x, long double y, int k) {
!         long double a, t, z, w, s, c;
          int *pt = (int *) &t, *px = (int *) &x;
          int i, j, hx, ix;
  
          t = 1.0L;
          hx = px[i0];
--- 109,119 ----
  
  #define i0      0
  
  long double
  __k_tanl(long double x, long double y, int k) {
!         long double a, t, z, w = 0, s, c;
          int *pt = (int *) &t, *px = (int *) &x;
          int i, j, hx, ix;
  
          t = 1.0L;
          hx = px[i0];