blob: 4979bfb64cdbb77540d74b735c157d1dc5eab300 [file] [log] [blame]
with Discr49_Rec1; use Discr49_Rec1;
package Discr49_Rec2 is
type Child (Discr : Boolean) is private;
function Value (Obj : Child) return Integer;
private
type Child (Discr : Boolean) is
new Parent (Discr_1 => Discr, Discr_2 => True);
end Discr49_Rec2;