PROGRAM FILE 94: READING DATA INTO SUBSCRIPTED VARIABLES.                       
    ANSI STANDARD 14.2, 14.4                                                    
                                                                                
SECTION 94.1: READING DATA INTO SUBSCRIPTED VARIABLES.                          
                                                                                
THIS SECTION TESTS THAT THE NUMERIC DATA CAN BE READ INTO                       
ARRAYS AND THAT SUBSCRIPTS ARE EVALUATED AFTER READING                          
INTO PREVIOUS VARIABLES.                                                        
                                                                                
                  BEGIN TEST                                                    
                                                                                
VALUES FOR A(I)                                                                 
I              A(I)           A(I)                                              
               SHOULD BE      ACTUAL                                            
 1              1              1                                                
 2              299            299                                              
 3              199            199                                              
 4              4              4                                                
 5              5              5                                                
                                                                                
*** TEST FOR ONE-DIMENSIONAL ARRAY PASSED. ***                                  
                                                                                
VALUES FOR C(I,J)                                                               
I=                            J=1            J=2            J=3                 
 1             SHOULD BE:      1001           1002           1003               
               ACTUAL:         1001           1002           1003               
                                                                                
 2             SHOULD BE:      499            2002           2003               
               ACTUAL:         499            2002           2003               
                                                                                
 3             SHOULD BE:      3001           3002           3003               
               ACTUAL:         3001           3002           3003               
                                                                                
 4             SHOULD BE:      4001           399            4003               
               ACTUAL:         4001           399            4003               
                                                                                
 5             SHOULD BE:      5001           5002           5003               
               ACTUAL:         5001           5002           5003               
                                                                                
                                                                                
*** TEST FOR TWO-DIMENSIONAL ARRAY PASSED. ***                                  
                                                                                
                 END TEST                                                       
                                                                                
END PROGRAM 94                                                                  
