gcc/testsuite/algol68/compile/mode-shadow-1.a68 - gcc.git - Git at Google


            
            begin mode Foo = real;

            
                  begin mode Foo = int;

            
                        Foo i;

            
                        BIN i

            
                  end;

            
                  skip

            
            end
	begin mode Foo = real;
	begin mode Foo = int;
	Foo i;
	BIN i
	end;
	skip
	end