package dispatch1_p is
   type I1 is interface;
   type DT_I1 is new I1 with null record;
end;