OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [ieee/] [20010226-1.c] - Blame information for rev 378

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 297 jeremybenn
#include <float.h>
2
 
3
long double dfrom = 1.1L;
4
long double m1;
5
long double m2;
6
unsigned long mant_long;
7
 
8
int main()
9
{
10
  /* Some targets don't support a conforming long double type.  This is
11
     common with very small parts which set long double == float.   Look
12
     to see if the type has at least 32 bits of precision.  */
13
  if (LDBL_EPSILON > 0x1p-31L)
14
    return 0;
15
 
16
  m1 = dfrom / 2.0L;
17
  m2 = m1 * 4294967296.0L;
18
  mant_long = ((unsigned long) m2) & 0xffffffff;
19
 
20
  if (mant_long == 0x8ccccccc)
21
    return 0;
22
  else
23
    abort();
24
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.