1-- { dg-do compile }
2
3package body Incomplete5 is
4
5   function Get (O: Base_Object) return Integer is
6   begin
7      return Get_Handle(O).I;
8   end;
9
10end Incomplete5;
11