PROGRAM FILE 123: EXCEPTION - UNDERFLOW ON VALUE OF                             
        EXP FUNCTION.                                                           
    ANSI STANDARD 8.4, 8.6                                                      
                                                                                
SECTION 123.1: EXCEPTION - UNDERFLOW ON VALUE OF                                
        EXP FUNCTION.                                                           
                                                                                
THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR                         
RECOGNIZES AN EXCEPTION WHEN THE VALUE RETURNED                                 
BY THE EXP FUNCTION IS LESS THAN MACHINE INFINITESIMAL                          
AND TO ENSURE THAT ZERO IS SUPPLIED ON UNDERFLOW.                               
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE                                
       DISPLAYED (NOT MANDATORY), AND                                           
                                                                                
    2) ZERO MUST BE SUPPLIED AS THE VALUE                                       
       OF THE FUNCTION AND EXECUTION CONTINUES.                                 
                                                                                
                                                                                
                               BEGIN TEST.                                      
                                                                                
                                                                                
ABOUT TO ATTEMPT EXP(-87 )                                                      
VALUE RETURNED BY EXP =  1.64581E-38                                            
                                                                                
---------------------------------------                                         
                                                                                
ABOUT TO ATTEMPT EXP(-105.27 )                                                  
VALUE RETURNED BY EXP =  1.91346E-46                                            
                                                                                
---------------------------------------                                         
                                                                                
ABOUT TO ATTEMPT EXP(-140.114 )                                                 
VALUE RETURNED BY EXP =  1.40962E-61                                            
                                                                                
---------------------------------------                                         
                                                                                
ABOUT TO ATTEMPT EXP(-205.141 )                                                 
VALUE RETURNED BY EXP =  8.0947E-90                                             
                                                                                
---------------------------------------                                         
                                                                                
ABOUT TO ATTEMPT EXP(-330.382 )                                                 
VALUE RETURNED BY EXP =  3.28675E-144                                           
                                                                                
---------------------------------------                                         
                                                                                
ABOUT TO ATTEMPT EXP(-585.292 )                                                 
VALUE RETURNED BY EXP =  6.46694E-255                                           
                                                                                
---------------------------------------                                         
                                                                                
ABOUT TO ATTEMPT EXP(-1140.57 )                                                 
VALUE RETURNED BY EXP =  0                                                      
                                                                                
---------------------------------------                                         
                                                                                
LAST INVOCATION OF EXP SHOULD HAVE BEEN REPORTED AS                             
UNDERFLOW IN ORDER TO COMPLY WITH ANSI RECOMMENDATION;                          
                                                                                
***** TEST PASSES, SINCE ZERO WAS SUPPLIED.  *****                              
                                                                                
                               END TEST                                         
                                                                                
END PROGRAM 123                                                                 
