blob: f6b4879dc00a891b45e2d81602362bc40fb8c072 [file] [log] [blame]
-- { dg-do compile }
package body Incomplete5 is
function Get (O: Base_Object) return Integer is
begin
return Get_Handle(O).I;
end;
end Incomplete5;