blob: 5a796f2d493f331c88d85e992dc8c9cc4bb61d25 [file] [log] [blame]
-- { dg-do run }
with SSO10_Pkg; use SSO10_Pkg;
procedure SSO10 is
procedure Inner (R : Root'Class) is
begin
Run (R);
end;
R : Root;
begin
Inner (R);
end;