PROGRAM FILE 45: ALTERING THE CONTROL-VARIABLE WITHIN                           
        A FOR-BLOCK.                                                            
    ANSI STANDARD 11.2, 11.4                                                    
                                                                                
SECTION 45.1: ALTERING THE CONTROL-VARIABLE WITHIN                              
        A FOR-BLOCK.                                                            
                                                                                
THIS SECTION TESTS THAT THE VALUE OF THE CONTROL-VARIABLE                       
MAY BE ALTERED BY STATEMENTS WITHIN THE FOR-BLOCK, AS                           
WELL AS UNDER THE DIRECT CONTROL OF THE FOR-STATEMENT.                          
                                                                                
               BEGIN TEST.                                                      
                                                                                
CONTROL VARIABLE:                                                               
SHOULD BE      ACTUAL         RESULT                                            
 3              3               OK                                              
 6              6               OK                                              
 9              9               OK                                              
CONTROL VARIABLE ALTERED.                                                       
 20             20              OK                                              
LOOP EXITED                                                                     
 23             23              OK                                              
                                                                                
NO. TIMES THROUGH LOOP:                                                         
SHOULD BE:  4      ACTUAL:  4    RESULT:   OK                                   
                                                                                
*** TEST PASSED ***                                                             
                                                                                
               END TEST.                                                        
                                                                                
END PROGRAM 45                                                                  
