URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [powerpc/] [rs6000-ldouble-2.c] - Blame information for rev 801

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


/* { dg-do run { target { { powerpc*-*-darwin* powerpc*-*-aix* rs6000-*-* } || { powerpc*-*-linux* && lp64 } } } } */
/* { dg-options "-mlong-double-128" } */
 
/* Check that LDBL_EPSILON is right for 'long double'.  */
 
#include <float.h>
 
extern void abort (void);
 
int main(void)
{
  volatile long double ee = 1.0;
  long double eps = ee;
  while (ee + 1.0 != 1.0)
    {
      eps = ee;
      ee = eps / 2;
    }
  if (eps != LDBL_EPSILON)
    abort ();
  return 0;
}

Line No.	Rev	Author	Line
1	691	jeremybenn	`/* { dg-do run { target { { powerpc--darwin* powerpc--aix* rs6000-- } \|\| { powerpc--linux* && lp64 } } } } */`
2			`/* { dg-options "-mlong-double-128" } */`
3
4			`/* Check that LDBL_EPSILON is right for 'long double'. */`
5
6			`#include <float.h>`
7
8			`extern void abort (void);`
9
10			`int main(void)`
11			`{`
12			`volatile long double ee = 1.0;`
13			`long double eps = ee;`
14			`while (ee + 1.0 != 1.0)`
15			`{`
16			`eps = ee;`
17			`ee = eps / 2;`
18			`}`
19			`if (eps != LDBL_EPSILON)`
20			`abort ();`
21			`return 0;`
22			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [powerpc/] [rs6000-ldouble-2.c] - Blame information for rev 801