gcc/testsuite/gnat.dg/pack18_pkg.ads

   1 with GNAT.Dynamic_Tables;
   2
   3 package Pack18_Pkg is
   4
   5    type String_Access is access String;
   6
   7    type Rec is record
   8       S : String_Access;
   9       B : Boolean;
  10       N : Natural;
  11    end record;
  12    pragma Pack (Rec);
  13
  14    package Attributes_Tables is new GNAT.Dynamic_Tables
  15      (Table_Component_Type => Rec,
  16       Table_Index_Type     => Natural,
  17       Table_Low_Bound      => 1,
  18       Table_Initial        => 200,
  19       Table_Increment      => 200);
  20
  21 end Pack18_Pkg;