/* <--- bug.bc ---><--- bug.bc ---><--- bug.bc ---><--- bug.bc ---> */

/*

 *  See the file "signum" for a description and reference for this

 *  program.  

 *

 *  THIS BUG IS *NOT* IN GNU BC!!!

 *

 */

obase=16

ibase=16

x=1A8F5C99605AE52	/* dividend			*/

y=BB0B404		/* divisor			*/

q=245A07AD		/* (correct) quotient		*/

r=147EB9E		/* (correct) remainder		*/

"Base 16

"

"x    = "; x		/* output numbers just to be sure... */

"y    = "; y

"quo  = "; q

"rem  = "; r

"x/y  = "; x/y		/* watch this result! */

"x%y  = "; x%y		/* watch this result! */

"y*q+r= "; y*q+r	/* check quotient & remainder	*/

/*

 * Do the same thing in base 10:

 */

"

Base 10

"

ibase=A

obase=10

"x    = "; x		/* output numbers just to be sure... */

"y    = "; y

"q    = "; q

"r    = "; r

"x/y  = "; x/y		/* watch this result! */

"x%y  = "; x%y		/* watch this result! */

"y*q+r= "; y*q+r	/* check quotient & remainder	*/