diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4d294e10fac8..f0555be4e702 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 b85d13ab0fa6..dd409d6f6677 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;