1package Discr49_Rec1 is
2   type Parent (Discr_1 : Boolean; Discr_2 : Boolean) is private;
3   function Value (Obj : Parent) return Integer;
4private
5   type Parent (Discr_1 : Boolean; Discr_2 : Boolean) is record
6      V : Integer := 123;
7   end record;
8end Discr49_Rec1;
9