1  double
       2  f (long double x)
       3  {
       4    union { long double ld; double d[2]; } u;
       5    u.ld = x;
       6    return u.d[1];
       7  }