1with Lto19_Pkg2;
2
3package Lto19_Pkg1 is
4
5  type Arr is array (1 .. Lto19_Pkg2.UB) of Integer;
6
7  type Rec is record
8    A : Arr;
9    I : Integer;
10  end record;
11
12  procedure Proc (R : Rec);
13
14end Lto19_Pkg1;
15