1with Discr11_Pkg; use Discr11_Pkg;
2
3package Discr11 is
4   type DT_2 is new DT_1 with record
5     More : Integer;
6   end record;
7
8   function Create return DT_2;
9end Discr11;
10