1package body Lto3_Pkg1 is
2
3  function Is_Fixed return Boolean is
4  begin
5    return True;
6  end Is_Fixed;
7
8  function Do_Item (I : Natural) return Variable_Data_Fixed_T is
9    It : Variable_Data_Fixed_T;
10  begin
11    return It;
12  end Do_Item;
13
14  My_Db : Db.T;
15
16  procedure Run is
17    Kitem : Variable_Data_Fixed_T;
18    I : Natural;
19  begin
20    Kitem := Db.Get (My_Db);
21    Kitem := Do_Item (I);
22  end Run;
23
24end Lto3_Pkg1;
25