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 4d294e10fac89afefe183721393f0ca696c804f8..f0555be4e7024028ad5abccf4e07f121941cc2dd 100644 (file)
--- 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 b85d13ab0fa6511238c2d4c5b6169c9dfd45edce..dd409d6f6677891902f86b38cbcfa79f8cfcedf8 100644 (file)
--- 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;