summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/g_tables.ads
blob: 34126882a5927933ae3d9c5ede0898afae7d630d (plain)
1
2
3
4
5
6
7
8
9
generic
   type Component is private;
package G_Tables is
   type Table (<>) is limited private;

   function  Create (L : Natural) return Table;
private
   type Table is array (Positive range <>) of Component;
end G_Tables;