gcc/testsuite/gm2/pim/pass/forloopnulchar.mod - gcc.git - Git at Google


            
            MODULE forloopnulchar ;


            VAR

            
               ch: CHAR ;

            
            BEGIN

            
               FOR ch := '' TO 'z' DO

            
               END

            
            END forloopnulchar.
	MODULE forloopnulchar ;

	VAR
	ch: CHAR ;
	BEGIN
	FOR ch := '' TO 'z' DO
	END
	END forloopnulchar.