URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.misc-tests/] [sieve.c] - Rev 720
Go to most recent revision | Compare with Previous | Blame | View Log
#define TRUE 1 #define FALSE 0 #define SIZE 8190 char flags[SIZE+1]; main() { register int i, prime, k, count, iter; for (iter=1;iter<=100;iter++) { count=0; for (i=0;i<=SIZE;i++) flags[i]=TRUE; for (i=0;i<=SIZE;i++) { if (flags[i]) { prime=i+i+3; for (k=i+prime;k<=SIZE;k+=prime) flags[k]=FALSE; count++; } } } return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log