PROGRAM FILE 41: ACCURACY OF MULTIPLICATION
    ANSI STANDARD 7.2, 7.4, 7.6

*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'
    WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW
    THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE
    VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL.

SECTION 41.1 ACCURACY OF MULTIPLICATION.

THIS SECTION TESTS THE ACCURACY OF MULTIPLICATION. THE 
COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY
PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT
PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY
THIS PERTURBATION (ACCURATE TO SIX DIGITS).

THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD
DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS.

              BEGIN TEST

FIRST          SECOND         TRUE           COMPUTED       TEST
OPERAND        OPERAND        VALUE          VALUE          RESULT

 0              0              0              0             PASS
-3.12345        0              0              0             PASS
 0              6.68589E+37    0              0             PASS
 3.90625        5.24288        20.48          20.48         PASS
 6.46469E-11    3.36466E+10    2.17515        2.17515       PASS
 6.46469E-38    3.36466E+37    2.17515        2.17515       PASS
 .465728        4.47578E+37    2.0845E+37     2.0845E+37    PASS
 3.48799        6.58589E+36    2.29715E+37    2.29715E+37   PASS
 4.48588E+10    8.88898E+26    3.98749E+37    3.98749E+37   PASS
 9.95855E+18    9.44647E+18    9.40731E+37    9.40731E+37   PASS
 9.95855E-20    9.44647E-19    9.40731E-38    9.40731E-38   PASS
 9.95855E-30    9.44647E-9     9.40731E-38    9.40731E-38   PASS
 9.95855E-38    .944647        9.40731E-38    9.40731E-38   PASS
 .999           .999           .998001        .998001       PASS
 774758         758675         5.8779E+11     5.8779E+11    PASS
 36534.1       -3.38383E-3    -123.625       -123.625       PASS
-9.89878E-2     9.85342E-2    -9.75368E-3    -9.75368E-3    PASS
-.228373       -955.664        218.248        218.248       PASS
 .390625       -.248864       -9.72125E-2    -9.72125E-2    PASS
-3.90625E-30    2.48864E+32   -972.125       -972.125       PASS

*** INFORMATIVE TEST PASSED ***

               END TEST

END PROGRAM 41
