blob: f266f099ccd40e409dc4d5c617ae9e5ca6f37059 [file] [log] [blame]
package body Inline18_Pkg1 is
procedure Proc (R : in out Rec) is
begin
R.Comp := My_G2.Func (Inline18_Pkg2.Child.General.Val);
end;
end Inline18_Pkg1;