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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [991019-1.c] - Blame information for rev 801

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

Line No. Rev Author Line
1 688 jeremybenn
typedef struct {
2
     double epsilon;
3
} material_type;
4
 
5
material_type foo(double x)
6
{
7
     material_type m;
8
 
9
     m.epsilon = 1.0 + x;
10
     return m;
11
}
12
 
13
main()
14
{
15
  int i;
16
  material_type x;
17
 
18
  /* We must iterate enough times to overflow the FP stack on the
19
     x86.  */
20
  for (i = 0; i < 10; i++)
21
    {
22
      x = foo (1.0);
23
      if (x.epsilon != 1.0 + 1.0)
24
        abort ();
25
    }
26
 
27
  exit (0);
28
}

powered by: WebSVN 2.1.0

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