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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [920501-7.c] - Blame information for rev 774

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

Line No. Rev Author Line
1 688 jeremybenn
#ifdef STACK_SIZE
2
#define DEPTH ((STACK_SIZE) / 512 + 1)
3
#else
4
#define DEPTH 1000
5
#endif
6
 
7
#if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES)
8
x(a)
9
{
10
  __label__ xlab;
11
  void y(a)
12
    {
13
      if (a==0)
14
        goto xlab;
15
      y (a-1);
16
    }
17
  y (a);
18
 xlab:;
19
  return a;
20
}
21
#endif
22
 
23
main ()
24
{
25
#if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES)
26
  if (x (DEPTH) != DEPTH)
27
    abort ();
28
#endif
29
  exit (0);
30
}

powered by: WebSVN 2.1.0

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