home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / bc-1.03-src.tgz / tar.out / fsf / bc / Test / BUG.bc < prev    next >
Text File  |  1996-09-28  |  889b  |  41 lines
  1. /* <--- bug.bc ---><--- bug.bc ---><--- bug.bc ---><--- bug.bc ---> */
  2.  
  3. /*
  4.  *  See the file "signum" for a description and reference for this
  5.  *  program.  
  6.  *
  7.  *  THIS BUG IS *NOT* IN GNU BC!!!
  8.  *
  9.  */
  10.  
  11. obase=16
  12. ibase=16
  13. x=1A8F5C99605AE52    /* dividend            */
  14. y=BB0B404        /* divisor            */
  15. q=245A07AD        /* (correct) quotient        */
  16. r=147EB9E        /* (correct) remainder        */
  17. "Base 16
  18. "
  19. "x    = "; x        /* output numbers just to be sure... */
  20. "y    = "; y
  21. "quo  = "; q
  22. "rem  = "; r
  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    */
  26. /*
  27.  * Do the same thing in base 10:
  28.  */
  29. "
  30. Base 10
  31. "
  32. ibase=A
  33. obase=10
  34. "x    = "; x        /* output numbers just to be sure... */
  35. "y    = "; y
  36. "q    = "; q
  37. "r    = "; r
  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    */
  41.