PROGRAM FILE 34: EXCEPTION - UNDERFLOW OF                                       
        NUMERIC CONSTANTS.                                                      
    ANSI STANDARD 5.4, 5.6                                                      
                                                                                
THIS PROGRAM TESTS VARIOUS CASES OF CONSTANT UNDERFLOW.                         
                                                                                
SECTION 34.1: POSITIVE CONSTANT UNDERFLOW                                       
                                                                                
THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION                            
LESS THAN POSITIVE MACHINE INFINITESIMAL.                                       
                                                                                
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 CONSTANT AND EXECUTION CONTINUES.                                 
                                                                                
               BEGIN TEST                                                       
                                                                                
RESULT OF ASSIGNING 3E-99999 =  0                                               
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
SECTION 34.2: NEGATIVE CONSTANT UNDERFLOW                                       
                                                                                
THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION                            
GREATER THAN NEGATIVE MACHINE INFINITESIMAL.                                    
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE                               
       DISPLAYED (NOT MANDATORY), AND                                           
                                                                                
    2) ZERO MUST BE SUPPLIED AS THE VALUE                                       
       OF THE CONSTANT AND EXECUTION CONTINUES.                                 
                                                                                
               BEGIN TEST                                                       
                                                                                
RESULT OF ASSIGNING -3E-99999 =  0                                              
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
END PROGRAM 34                                                                  
