gcc/testsuite/gnat.dg/slice6_pkg.ads

   1 package Slice6_Pkg is\r
   2 \r
   3   subtype LENGTH_RANGE is SHORT_INTEGER range 0 .. 8184;\r
   4 \r
   5   type T_BLOCK is array (SHORT_INTEGER range <>) of SHORT_SHORT_INTEGER;\r
   6   for T_BLOCK'alignment use 4;\r
   7 \r
   8   type T_MSG (V_LENGTH : LENGTH_RANGE := 0) is\r
   9     record\r
  10       HEADER : Integer;\r
  11       DATAS  : T_BLOCK (1 .. V_LENGTH) := (others => 0);\r
  12     end record;\r
  13   for T_MSG'alignment use 4;\r
  14 \r
  15 end Slice6_Pkg;\r