gcc/testsuite/gcc.target/mips/reorgbug-1.c

   1 /* { dg-options "-msoft-float -mips2" } */
   2
   3 typedef long int __int32_t;
   4 typedef long unsigned int __uint32_t;
   5 typedef union
   6 {
   7   double value;
   8   struct
   9   {
  10     __uint32_t msw;
  11     __uint32_t lsw;
  12   }
  13   parts;
  14 }
  15 ieee_double_shape_type;
  16 double
  17 __ieee754_fmod (double x, double y, int z, int xx)
  18 {
  19   __int32_t n, hx, hy, hz, ix, iy, sx, i;
  20   __uint32_t lx, ly, lz;
  21   ieee_double_shape_type ew_u;
  22   ew_u.value = (x);
  23   (lx) = ew_u.parts.lsw;
  24   ew_u.value = (y);
  25   (hy) = ew_u.parts.msw;
  26   (ly) = ew_u.parts.lsw;
  27   if (hy == 0 || hx >= 0x7ff00000)
  28     return (x * y);
  29   if (z)
  30     {
  31       if ((hx < hy) || (lx < ly))
  32         return x;
  33       lz = lx - ly;
  34       lx = lz + lz;
  35     }
  36   ieee_double_shape_type iw_u;
  37   iw_u.parts.lsw = (lx);
  38   return iw_u.value;
  39 }