1--  { dg-do run }
2
3with Generic_Disp_Pkg; use Generic_Disp_Pkg;
4
5procedure Generic_Disp is
6   I : aliased Integer := 0;
7   D : Iface'Class := Dispatching_Constructor (DT'Tag, I'access);
8begin
9   null;
10end Generic_Disp;
11