PROGRAM FILE 116: EVALUATION OF SGN FUNCTION.                                   
    ANSI STANDARD 8.4                                                           
                                                                                
SECTION 116.1: EVALUATION OF SGN FUNCTION.                                      
                                                                                
THIS SECTION TESTS WHETHER THE SGN NUMERIC-SUPPLIED-FUNCTION                    
RETURNS THE CORRECT VALUE FOR A VARIETY OF ARGUMENTS.                           
                                                                                
                BEGIN TEST                                                      
                                                                                
               CORRECT        ACTUAL         TEST                               
ARGUMENT       VALUE          VALUE          RESULT                             
                                                                                
 0              0              0              OK                                
 1              1              1              OK                                
-1             -1             -1              OK                                
 3              1              1              OK                                
-4             -1             -1              OK                                
 86.1234        1              1              OK                                
-3.45678E+24   -1             -1              OK                                
 2.22222E-32    1              1              OK                                
 1.23E-8        1              1              OK                                
 1.E+38         1              1              OK                                
-1.E+38        -1             -1              OK                                
 1.E-38         1              1              OK                                
-1.E-38        -1             -1              OK                                
 0              0              0              OK                                
 0              0              0              OK                                
 0              0              0              OK                                
                                                                                
*** TEST PASSED ***                                                             
                                                                                
                 END TEST                                                       
                                                                                
END PROGRAM 116                                                                 
