+2007-09-09 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gnat.dg/addr2_p.ads: Bump size of array to 9.
+
2007-09-09 Ira Rosen <irar@il.ibm.com>
* gcc.dg/vect/vect.exp: Compile tests starting with slp-.
package addr2_p is
- type Block is array (1 .. 4) of Integer;
+ type Block is array (1 .. 9) of Integer;
procedure Process (Blk : Block);
- B1 : constant Block := Block'((1,2,3,4));
- B2 : constant Block := (1,2,3,4);
+ B1 : constant Block := Block'((1,2,3,4,5, others => 0));
+ B2 : constant Block := (1,2,3,4,5, others => 0);
end;