blob: 2f828ff1b1b4f56257910e1cefe95b6f86c09a21 [file] [log] [blame]
-- { dg-do run }
with Generic_Disp_Pkg; use Generic_Disp_Pkg;
procedure Generic_Disp is
I : aliased Integer := 0;
D : Iface'Class := Dispatching_Constructor (DT'Tag, I'access);
begin
null;
end Generic_Disp;