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

Subversion Repositories openrisc_me

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

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

Line No. Rev Author Line
1 297 jeremybenn
#if defined (STACK_SIZE)
2
#define DUMMY_SIZE 9
3
#else
4
#define DUMMY_SIZE 399999
5
#endif
6
 
7
double g()
8
{
9
  return 1.0;
10
}
11
 
12
f()
13
{
14
  char dummy[DUMMY_SIZE];
15
  double f1, f2, f3;
16
  f1 = g();
17
  f2 = g();
18
  f3 = g();
19
  return f1 + f2 + f3;
20
}
21
 
22
main()
23
{
24
  if (f() != 3.0)
25
    abort();
26
  exit(0);
27
}

powered by: WebSVN 2.1.0

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