summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/test_tables.adb
blob: d0abbfa576398453bc31c44d97140b8576e3471b (plain)
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;