path: root/gcc/testsuite/gnat.dg/renaming8_pkg2.ads

with Renaming8_Pkg3; use Renaming8_Pkg3;

package Renaming8_Pkg2 is

  type Arr is array (Positive range 1 .. Last_Index) of Boolean;

  type Rec is record
     E : Arr;
  end record;

  function F return Rec;

end Renaming8_Pkg2;