Subversion Repositories openrisc

#include <float.h>

long double dfrom = 1.1L;

long double m1;

long double m2;

unsigned long mant_long;

int main()

{

  /* Some targets don't support a conforming long double type.  This is

     common with very small parts which set long double == float.   Look

     to see if the type has at least 32 bits of precision.  */

  if (LDBL_EPSILON > 0x1p-31L)

    return 0;

  m1 = dfrom / 2.0L;

  m2 = m1 * 4294967296.0L;

  mant_long = ((unsigned long) m2) & 0xffffffff;

  if (mant_long == 0x8ccccccc)

    return 0;

  else

    abort();

}