*** 46,65 ****
          if (isnanl(x) || isnanl(fn))
                  return x * fn;
  
          /* fn is +/-Inf */
  #if defined(_BIG_ENDIAN)
!         if ((py[0] & 0x7fff0000) == 0x7fff0000)
                  if ((py[0] & 0x80000000) != 0)
  #else
!         if ((py[2] & 0x7fff) == 0x7fff)
                  if ((py[2] & 0x8000) != 0)
  #endif
                          return x / (-fn);
                  else
                          return x * fn;
! 
          if (rintl(fn) != fn)
                  return (fn - fn) / (fn - fn);
          if (fn > 65000.0L)
                  z = scalbnl(x, 65000);
          else if (-fn > 65000.0L)
--- 46,65 ----
          if (isnanl(x) || isnanl(fn))
                  return x * fn;
  
          /* fn is +/-Inf */
  #if defined(_BIG_ENDIAN)
!         if ((py[0] & 0x7fff0000) == 0x7fff0000) {
                  if ((py[0] & 0x80000000) != 0)
  #else
!         if ((py[2] & 0x7fff) == 0x7fff) {
                  if ((py[2] & 0x8000) != 0)
  #endif
                          return x / (-fn);
                  else
                          return x * fn;
!         }
          if (rintl(fn) != fn)
                  return (fn - fn) / (fn - fn);
          if (fn > 65000.0L)
                  z = scalbnl(x, 65000);
          else if (-fn > 65000.0L)