1package body Generic_Disp_Pkg is
2
3   function Constructor (I : not null access Integer) return DT is
4      R : DT;
5   begin
6      return R;
7   end Constructor;
8
9end Generic_Disp_Pkg;
10