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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [comp-goto-2.c] - Blame information for rev 688

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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