1package Renaming6 is
2
3  I : Integer;
4  pragma Atomic (I);
5
6  function Get_I return Integer;
7  procedure Set_I (Val : Integer);
8
9  J : Integer renames I;
10
11  function Get_J return Integer;
12  procedure Set_J (Val : Integer);
13
14end Renaming6;
15