gcc/testsuite/gnat.dg/test_tables.adb

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