1 2 3 4 5 6
package Disp1_Pkg is type I1 is interface; type DT_I1 is new I1 with null record; end Disp1_Pkg;