1--  { dg-do compile }
2--  { dg-options "-gnatws" }
3
4with G_tables;
5procedure test_tables is
6   package Inst is new G_Tables (Integer);
7   use Inst;
8   It : Inst.Table := Create (15);
9begin
10   null;
11end;
12