PROGRAM FILE 72: EXCEPTION - SUBSCRIPT TOO SMALL FOR:                           
        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1.                      
    ANSI STANDARD 6.5, 15.2, 15.4                                               
                                                                                
SECTION 72.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR                               
        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1.                      
                                                                                
THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR                         
RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN                    
OPTION BASE 1 HAS BEEN SPECIFIED ALONG WITH A                                   
TWO-DIMENSIONAL ARRAY SET UP WITH A DIM-STATEMENT.                              
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE                              
       DISPLAYED, AND                                                           
                                                                                
    2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO                          
       SUBSCRIPT.                                                               
                                                                                
                               BEGIN TEST.                                      
                                                                                
ABOUT TO ASSIGN TO B(12, 4 ). ASSIGNMENT SHOULD BE OK.                          
HAVE ASSIGNED  6  TO B(12, 4 ).                                                 
                                                                                
ABOUT TO ASSIGN TO B(12, 3 ). ASSIGNMENT SHOULD BE OK.                          
HAVE ASSIGNED  7  TO B(12, 3 ).                                                 
                                                                                
ABOUT TO ASSIGN TO B(12, 2 ). ASSIGNMENT SHOULD BE OK.                          
HAVE ASSIGNED  8  TO B(12, 2 ).                                                 
                                                                                
ABOUT TO ASSIGN TO B(12, 1 ). ASSIGNMENT SHOULD BE OK.                          
HAVE ASSIGNED  9  TO B(12, 1 ).                                                 
                                                                                
ABOUT TO ASSIGN TO B(12, 0 ).*** EXCEPTION SHOULD OCCUR NOW ***                 
                                                                                
ERROR in line 310: Subscript out of range                                       
