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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [ieee/] [20001122-1.c] - Blame information for rev 825

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

Line No. Rev Author Line
1 149 jeremybenn 
volatile double a, *p;
2 
 
3 
int main ()
4 
{
5 
  double c, d;
6 
  volatile double b;
7 
 
8 
  d = 1.0;
9 
  p = &b;
10 
  do
11 
  {
12 
    c = d;
13 
    d = c * 0.5;
14 
    b = 1 + d;
15 
  } while (b != 1.0);
16 
 
17 
  a = 1.0 + c;
18 
  if (a == 1.0)
19 
    abort();
20 
 
21 
  exit (0);
22 
}

powered by: WebSVN 2.1.0

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