1-- Copyright 2005-2016 Free Software Foundation, Inc. 2-- 3-- This program is free software; you can redistribute it and/or modify 4-- it under the terms of the GNU General Public License as published by 5-- the Free Software Foundation; either version 3 of the License, or 6-- (at your option) any later version. 7-- 8-- This program is distributed in the hope that it will be useful, 9-- but WITHOUT ANY WARRANTY; without even the implied warranty of 10-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11-- GNU General Public License for more details. 12-- 13-- You should have received a copy of the GNU General Public License 14-- along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16with Pck; use Pck; 17 18procedure PA is 19 20 type Packed_Array is array (4 .. 8) of Boolean; 21 pragma pack (Packed_Array); 22 23 Var : Packed_Array; 24 25 -- Unconstrained packed array (bounds are dynamic). 26 type Unconstrained_Packed_Array is array (Integer range <>) of Boolean; 27 28 U_Var : Unconstrained_Packed_Array (1 .. Ident (6)); 29 30begin 31 32 Var := (True, False, True, False, True); 33 U_Var := (True, False, False, True, True, False); 34 35 Var (8) := False; -- STOP 36 U_Var (U_Var'Last) := True; 37 38end PA; 39