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                                                                  
