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