PROGRAM FILE 70: EXCEPTION - SUBSCRIPT TOO SMALL FOR                            
        ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0.                              
    ANSI STANDARD 6.5, 15.2, 15.4                                               
                                                                                
SECTION 70.1: EXCEPTION - SUBSCRIPT TO SMALL FOR                                
        ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0.                              
                                                                                
THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR                         
RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION                     
WHEN OPTION BASE 0 HAS BEEN SPECIFIED.                                          
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE                              
       DISPLAYED, AND                                                           
                                                                                
    2) THE PROGRAM MUST TERMINATE UPON USE OF THE                               
       NEGATIVE SUBSCRIPT.                                                      
                                                                                
                               BEGIN TEST.                                      
                                                                                
ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  17  TO A( 3 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  18  TO A( 2 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  19  TO A( 1 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A( 0 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  20  TO A( 0 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A(-1 ).*** EXCEPTION SHOULD OCCUR NOW ***                    
                                                                                
ERROR in line 280: Subscript out of range                                       
