PROGRAM FILE 31: EXCEPTION - ZERO RAISED TO A NEGATIVE POWER.                   
    ANSI STANDARD 7.5                                                           
                                                                                
SECTION 31.1: EXCEPTION - ZERO RAISED TO A NEGATIVE POWER.                      
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE                              
       DISPLAYED, AND                                                           
                                                                                
    2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE                          
       OF THE EXPRESSION AND EXECUTION CONTINUES.                               
                                                                                
               BEGIN TEST                                                       
                                                                                
*** Arithmetic Overflow ***                                                     
VALUE SUPPLIED =  1.79769E+308                                                  
                                                                                
IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND                              
   EXCEPTION REPORTED, THEN                                                     
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
END PROGRAM 31                                                                  
