1package Dynamic_Elab_Pkg is
2
3  type R is record
4    Code : Integer;
5    Val  : Boolean;
6  end record;
7
8  function Get_R return R;
9
10end Dynamic_Elab_Pkg;
11