summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/parent_ltd_with-child_full_view.ads
blob: 3f7aa2e99fcaf0edd89e6429841ae8bd8c067890 (plain)
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;