1 2package addr2_p is 3 4 type Block is array (1 .. 9) of Integer; 5 6 procedure Process (Blk : Block); 7 8 B1 : constant Block := Block'((1,2,3,4,5, others => 0)); 9 B2 : constant Block := (1,2,3,4,5, others => 0); 10end; 11