From 7a8faae861e39ac771e5387288b5315d45b78070 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 9 Sep 2007 11:22:30 +0000 Subject: [PATCH] addr2_p.ads: Bump size of array to 9. * gnat.dg/addr2_p.ads: Bump size of array to 9. From-SVN: r128295 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/addr2_p.ads | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * gnat.dg/addr2_p.ads: Bump size of array to 9. + 2007-09-09 Ira Rosen * 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; -- 2.30.2