gcc/testsuite/gnat.dg/parent_ltd_with-child_full_view.ads


1
2
3
4
5
6
7
8
9
10
11
12

package Parent_Ltd_With.Child_Full_View is
   
   type Child_Symbol is new Parent_Ltd_With.Symbol with private;
   type Child_Symbol_Access is access all Child_Symbol;
   
   function New_Child_Symbol return Child_Symbol_Access;

private
   
   type Child_Symbol is new Parent_Ltd_With.Symbol with null record;

end Parent_Ltd_With.Child_Full_View;