1  int
       2  f (f)
       3       float f;
       4  {
       5    long long  *ip = (long long  *) &f;
       6    return (*ip & 0x7ff0000000000000LL ) != 0x7ff0000000000000LL ;
       7  }