URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [stackalign/] [non-local-goto-4.c] - Rev 801
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ extern void abort (void); extern void exit (int); #ifdef STACK_SIZE #define DEPTH ((STACK_SIZE) / 512 + 1) #else #define DEPTH 1000 #endif #if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES) int x(a) { __label__ xlab; void y(a) { if (a==0) goto xlab; y (a-1); } y (a); xlab:; return a; } #endif int 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