URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [920501-3.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
int tab[9]; execute(oip, ip) unsigned short *oip, *ip; { #ifndef NO_LABEL_VALUES int x = 0; int *xp = tab; base: x++; if (x == 4) { *xp = 0; return; } *xp++ = ip - oip; goto *(&&base + *ip++); #else tab[0] = 0; tab[1] = 1; tab[2] = 2; tab[3] = 0; #endif } main() { unsigned short ip[10]; int i; for (i = 0; i < 10; i++) ip[i] = 0; execute(ip, ip); if (tab[0] != 0 || tab[1] != 1 || tab[2] != 2 || tab[3] != 0) abort(); exit(0); }
Go to most recent revision | Compare with Previous | Blame | View Log