1-- { dg-do compile } 2 3package body Parent_Ltd_With.Child_Full_View is 4 5 function New_Child_Symbol return Child_Symbol_Access is 6 Sym : constant Child_Symbol_Access := new Child_Symbol'(Comp => 10); 7 8 begin 9 return Sym; 10 end New_Child_Symbol; 11 12end Parent_Ltd_With.Child_Full_View; 13