diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/pack18_pkg.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/pack18_pkg.ads | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/pack18_pkg.ads b/gcc/testsuite/gnat.dg/pack18_pkg.ads new file mode 100644 index 00000000000..2b63fbab063 --- /dev/null +++ b/gcc/testsuite/gnat.dg/pack18_pkg.ads @@ -0,0 +1,21 @@ +with GNAT.Dynamic_Tables; + +package Pack18_Pkg is + + type String_Access is access String; + + type Rec is record + S : String_Access; + B : Boolean; + N : Natural; + end record; + pragma Pack (Rec); + + package Attributes_Tables is new GNAT.Dynamic_Tables + (Table_Component_Type => Rec, + Table_Index_Type => Natural, + Table_Low_Bound => 1, + Table_Initial => 200, + Table_Increment => 200); + +end Pack18_Pkg; |