gcc/testsuite/gnat.dg/test_tables.adb


1
2
3
4
5
6
7
8
9
10
11

--  { dg-do compile }
--  { dg-options "-gnatws" }

with G_tables;
procedure test_tables is
   package Inst is new G_Tables (Integer);
   use Inst;
   It : Inst.Table := Create (15);
begin
   null;
end;