From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 9 Sep 2007 11:22:30 +0000 (+0000)
Subject: addr2_p.ads: Bump size of array to 9.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7a8faae861e39ac771e5387288b5315d45b78070;p=gcc.git

addr2_p.ads: Bump size of array to 9.

        * gnat.dg/addr2_p.ads: Bump size of array to 9.

From-SVN: r128295
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4d294e10fac..f0555be4e70 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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-.
diff --git a/gcc/testsuite/gnat.dg/addr2_p.ads b/gcc/testsuite/gnat.dg/addr2_p.ads
index b85d13ab0fa..dd409d6f667 100644
--- a/gcc/testsuite/gnat.dg/addr2_p.ads
+++ b/gcc/testsuite/gnat.dg/addr2_p.ads
@@ -1,10 +1,10 @@
 
 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;