OSDN Git Service

* treelang/compile/var_defs.tree: Adjust.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.misc-tests / sieve.c
1
2 #define TRUE 1
3 #define FALSE 0
4 #define SIZE 8190
5
6 char flags[SIZE+1];
7
8 main()
9 {
10         register int i, prime, k, count, iter;
11         for (iter=1;iter<=100;iter++)           {
12                 count=0;
13                 for (i=0;i<=SIZE;i++)
14                         flags[i]=TRUE;
15                 for (i=0;i<=SIZE;i++) {
16                         if (flags[i]) {
17                                 prime=i+i+3;
18                                 for (k=i+prime;k<=SIZE;k+=prime)
19                                         flags[k]=FALSE;
20                                 count++;
21                         }
22                 }
23         }
24         return 0;
25 }
26