Merge from vendor branch TCPDUMP:
[dragonfly.git] / contrib / bc / Test / sqrt1.b
1 for (j=0; j<10; j++) {
2   a = .9;
3   b = .9+j;
4   scale = 2;
5   for (i=0; i<90; i++) {
6     scale += 1;
7     a /= 10;
8     b += a;
9     x = sqrt(b);
10   }
11   x;
12 }
13 quit