1with Renaming8_Pkg3; use Renaming8_Pkg3;
2
3package Renaming8_Pkg2 is
4
5  type Arr is array (Positive range 1 .. Last_Index) of Boolean;
6
7  type Rec is record
8     E : Arr;
9  end record;
10
11  function F return Rec;
12
13end Renaming8_Pkg2;
14