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

   1 package Parent_Ltd_With.Child_Full_View is
   2
   3    type Child_Symbol is new Parent_Ltd_With.Symbol with private;
   4    type Child_Symbol_Access is access all Child_Symbol;
   5
   6    function New_Child_Symbol return Child_Symbol_Access;
   7
   8 private
   9
  10    type Child_Symbol is new Parent_Ltd_With.Symbol with null record;
  11
  12 end Parent_Ltd_With.Child_Full_View;