PROGRAM FILE 42: ACCURACY OF DIVISION                                           
    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 42.1 ACCURACY OF DIVISION.                                              
                                                                                
THIS SECTION TESTS THE ACCURACY OF DIVISION. 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             -74.7589        0              0             PASS                
 9.72125E+12    2.48864E-3     3.90625E+15    3.90625E+15   PASS                
-9.72125E-5    -2.48864E+13    3.90625E-18    3.90625E-18   PASS                
 9.36467E-2     9.54647E-2     .980956        .980956       PASS                
 3.76465E+37    8.95857E+37    .420229        .420229       PASS                
 9.58764E+17    5.58589E+15    171.64         171.64        PASS                
-4.57858E-17   -8.79796E-14    5.20414E-4     5.20414E-4    PASS                
 2.37847E-38    1.17265E-38    2.02829        2.02829       PASS                
 6.84776E+37   -.697536       -9.81707E+37   -9.81707E+37   PASS                
-3.46756E+20    2.22736E-17   -1.5568E+37    -1.5568E+37    PASS                
 .987645        9.87897E-38    9.99745E+36    9.99745E+36   PASS                
-4.47563E-37    6.68575       -6.69428E-38   -6.69428E-38   PASS                
 8.57653E-20   -8.89763E+17   -9.63912E-38   -9.63912E-38   PASS                
-5.57645       -7.86453E+37    7.09063E-38    7.09063E-38   PASS                
                                                                                
*** INFORMATIVE TEST PASSED ***                                                 
                                                                                
               END TEST                                                         
                                                                                
END PROGRAM 42                                                                  
