Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/array14_pkg.ads @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
with System.Storage_Elements; package Array14_Pkg is package SSE renames System.Storage_Elements; function Parity_Byte_Count return SSE.Storage_Count; Length2 : constant SSE.Storage_Count := Parity_Byte_Count; subtype Encoded_Index_Type2 is SSE.Storage_Count range 1 .. Length2; subtype Encoded_Type2 is SSE.Storage_Array (Encoded_Index_Type2'Range); procedure Encode2 (Input : in Integer; Output : out Encoded_Type2); end Array14_Pkg;