gcc/testsuite/gnat.dg/g_tables.ads

   1 generic
   2    type Component is private;
   3 package G_Tables is
   4    type Table (<>) is limited private;
   5
   6    function  Create (L : Natural) return Table;
   7 private
   8    type Table is array (Positive range <>) of Component;
   9 end G_Tables;