gcc/testsuite/gnat.dg/parent_ltd_with.ads

   1 limited with Parent_Ltd_With.Child_Full_View;
   2
   3 package Parent_Ltd_With is
   4
   5    type Symbol is abstract tagged limited private;
   6
   7    type Symbol_Access is access all Symbol'Class;
   8
   9 private
  10
  11    type Symbol is abstract tagged limited record
  12       Comp : Integer;
  13    end record;
  14
  15 end Parent_Ltd_With;