gcc/testsuite/gcc.dg/torture/20160404-1.c

   1 /* { dg-do compile } */
   2
   3 typedef __UINT64_TYPE__ UINT64;
   4 typedef union {
   5     struct {
   6         unsigned short lo4;
   7         unsigned short lo3;
   8         unsigned short lo2;
   9         unsigned short lo1;
  10     } i;
  11     long double f;
  12 } BID_BINARY80LDOUBLE;
  13 UINT64 __binary80_to_bid32 (long double x)
  14 {
  15   BID_BINARY80LDOUBLE x_in;
  16   x_in.f = x;
  17   return (x_in.i.lo4
  18           + ((UINT64)x_in.i.lo3 << 16)
  19           + ((UINT64)x_in.i.lo2 << 32)
  20           + ((UINT64)x_in.i.lo1 << 48));
  21 }