1 /* <--- bug.bc ---><--- bug.bc ---><--- bug.bc ---><--- bug.bc ---> */
4 * See the file "signum" for a description and reference for this
7 * THIS BUG IS *NOT* IN GNU BC!!!
13 x=1A8F5C99605AE52 /* dividend */
14 y=BB0B404 /* divisor */
15 q=245A07AD /* (correct) quotient */
16 r=147EB9E /* (correct) remainder */
19 "x = "; x /* output numbers just to be sure... */
23 "x/y = "; x/y /* watch this result! */
24 "x%y = "; x%y /* watch this result! */
25 "y*q+r= "; y*q+r /* check quotient & remainder */
27 * Do the same thing in base 10:
34 "x = "; x /* output numbers just to be sure... */
38 "x/y = "; x/y /* watch this result! */
39 "x%y = "; x%y /* watch this result! */
40 "y*q+r= "; y*q+r /* check quotient & remainder */