URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [960209-1.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
struct a_struct { unsigned char a_character; }; struct a_struct an_array[5]; struct a_struct *a_ptr; int yabba = 1; int f (a, b) unsigned char a; unsigned long b; { long i, j, p, q, r, s; if (b != (unsigned long) 0) { if (yabba) return -1; s = 4000000 / b; for (i = 0; i < 11; i++) { for (j = 0; j < 256; j++) { if (((p - s < 0) ? -s : 0) < (( q - s < 0) ? -s : q)) r = i; } } } if (yabba) return 0; a_ptr = &an_array[a]; a_ptr->a_character = (unsigned char) r; } main () { if (f (1, 0UL) != 0) abort (); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log