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/] [comp-goto-2.c] - Rev 825
Go to most recent revision | Compare with Previous | Blame | View Log
/* A slight variation of 920501-7.c. */ #ifdef STACK_SIZE #define DEPTH ((STACK_SIZE) / 512 + 1) #else #define DEPTH 1000 #endif #if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES) x(a) { __label__ xlab; void y(a) { void *x = &&llab; if (a==-1) goto *x; if (a==0) goto xlab; llab: y (a-1); } y (a); xlab:; return a; } #endif main () { #if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES) if (x (DEPTH) != DEPTH) abort (); #endif exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log