1with Discr26_Pkg;
2
3package Discr26 is
4
5  type T1 (D : Integer) is record
6    case D is
7      when 1 => I : Integer;
8      when others => null;
9    end case;
10  end record;
11
12  type My_T1 is new T1 (Discr26_Pkg.N);
13
14  procedure Proc;
15
16end Discr26;
17