1package Renaming2_Pkg2 is
2
3  type Root is private;
4
5private
6
7  type Root (D : Boolean := False) is record
8    case D is
9      when True => N : Natural;
10      when False => null;
11    end case;
12  end record;
13
14end Renaming2_Pkg2;
15