DIRECTORY Basics, TamarinDivide; TestDivide: CEDAR PROGRAM IMPORTS Basics, TamarinDivide = BEGIN BadResult: SIGNAL [] = CODE; refQuotient: INT; refRemainder: INT; testQuotient: INT; testRemainder: INT; testOK: BOOL; FOR i: CARDINAL IN [1..1500] DO FOR j: CARD IN [1..32767] DO [refQuotient, refRemainder] _ Basics.LongDivMod[j, i]; [testQuotient, testRemainder, testOK] _ TamarinDivide.Divide[i, j]; IF (refQuotient # testQuotient) OR (refRemainder # testRemainder) THEN SIGNAL BadResult[]; ENDLOOP; ENDLOOP; END. nTestDivide.mesa December 8, 1986 3:05:11 pm PST Last Edited by: Ross December 8, 1986 6:19:05 pm PST Κ˜™J™Icode™4J™—JšΟk œ˜ J˜šΟn œœ˜Jšœ˜ Jš˜J™Jšž œœœ˜J˜Kšœ œ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ˜ K˜šœœœ ˜šœœœ ˜K˜6KšœC˜CKšœœ œœ ˜ZKšœ˜—Kšœ˜K˜——Kšœ˜—…—