blob: c50243efdd68b5e16402b554373ab0b151f94914 [file] [log] [blame]
-- { dg-do compile }
package body Renaming9 is
procedure Proc is
begin
Obj.I := 0;
end;
begin
Obj.I := 0;
end Renaming9;