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