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