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
