blob: 1d9fbf5c015be713836e908abc554f2891913685 [file] [log] [blame]
package Renaming6 is
I : Integer;
pragma Atomic (I);
function Get_I return Integer;
procedure Set_I (Val : Integer);
X : Integer renames I;
function Get_J return Integer;
procedure Set_J (Val : Integer);
end Renaming6;