PROGRAM FILE 115: EVALUATION OF INT FUNCTION.                                   
    ANSI STANDARD 8.4                                                           
                                                                                
SECTION 115.1: EVALUATION OF INT FUNCTION.                                      
                                                                                
THIS SECTION TESTS WHETHER THE INT NUMERIC-SUPPLIED-FUNCTION                    
RETURNS THE GREATEST INTEGER LESS THAN OR EQUAL TO                              
THE VALUE OF THE ARGUMENT PASSED TO THE FUNCTION.                               
                                                                                
                BEGIN TEST                                                      
                                                                                
               CORRECT        ACTUAL         TEST                               
ARGUMENT       VALUE          VALUE          RESULT                             
                                                                                
 3              3              3              OK                                
-3             -3             -3              OK                                
 2.1            2              2              OK                                
 2.9            2              2              OK                                
-2.1           -3             -3              OK                                
-2.9           -3             -3              OK                                
 1              1              1              OK                                
-1             -1             -1              OK                                
 0              0              0              OK                                
 .1             0              0              OK                                
 .9             0              0              OK                                
-.1            -1             -1              OK                                
-.9            -1             -1              OK                                
 1234.2         1234           1234           OK                                
 1234.9         1234           1234           OK                                
-12345.6       -12346         -12346          OK                                
 3.99999        3              3              OK                                
-44.0001       -45            -45             OK                                
-12300         -12300         -12300          OK                                
-4.56          -5             -5              OK                                
 78.9999        78             78             OK                                
 1.E-38         0              0              OK                                
 .123457        0              0              OK                                
 1.23456E-31    0              0              OK                                
-1.E-38        -1             -1              OK                                
-.123457       -1             -1              OK                                
-1.23456E-31   -1             -1              OK                                
                                                                                
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
                                                                                
SECTION 115.2 EVALUATION OF INT FUNCTION FOR VALUES                             
        OF LARGE MAGNITUDE.                                                     
                                                                                
THIS IS AN INFORMATIVE TEST TO EXAMINE THE BEHAVIOR OF                          
THE INT FUNCTION WHEN THE RESULT DEPENDS ON CALCULATION                         
BEYOND SIX DECIMAL DIGITS. THIS SECTION IS NOT CONSIDERED                       
EITHER TO PAS OR FAIL.                                                          
                                                                                
               BEGIN TEST                                                       
                                                                                
               CORRECT        ACTUAL                                            
ARGUMENT       VALUE          VALUE                                             
                                                                                
987654.1       987654          987654                                           
987654.9       987654          987654                                           
1234567.9      1234567         1.23457E+6                                       
12345678.9     12345678        1.23457E+7                                       
123456789.9    123456789       1.23457E+8                                       
1234567890.9   1234567890      1.23457E+9                                       
-987654.1      -987655        -987655                                           
-987654.9      -987655        -987655                                           
-1234567.1     -1234568       -1.23457E+6                                       
-12345678.1    -123456789     -1.23457E+7                                       
-123456789.1   -123456790     -1.23457E+8                                       
-1234567890.1  -1234567891    -1.23457E+9                                       
                                                                                
                END TEST                                                        
                                                                                
END PROGRAM 115                                                                 
