gcc/testsuite/gnat.dg/array14_pkg.ads

   1 with System.Storage_Elements;\r
   2 \r
   3 package Array14_Pkg is\r
   4 \r
   5   package SSE renames System.Storage_Elements;\r
   6 \r
   7   function Parity_Byte_Count return SSE.Storage_Count;\r
   8 \r
   9   Length2 : constant SSE.Storage_Count := Parity_Byte_Count;\r
  10 \r
  11   subtype Encoded_Index_Type2 is SSE.Storage_Count range 1 .. Length2;\r
  12   subtype Encoded_Type2 is SSE.Storage_Array (Encoded_Index_Type2'Range);\r
  13 \r
  14   procedure Encode2 (Input : in Integer; Output : out Encoded_Type2);\r
  15 \r
  16 end Array14_Pkg;\r