diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2007-09-09 11:22:30 +0000 |
---|---|---|
committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2007-09-09 11:22:30 +0000 |
commit | 7a8faae861e39ac771e5387288b5315d45b78070 (patch) | |
tree | 617910e84dcaa4d03dc7d1e774523714c953ca03 | |
parent | 89675e73495690215be5a19c0cf9ea3dc83826b1 (diff) | |
download | gcc-7a8faae861e39ac771e5387288b5315d45b78070.zip gcc-7a8faae861e39ac771e5387288b5315d45b78070.tar.gz gcc-7a8faae861e39ac771e5387288b5315d45b78070.tar.bz2 |
addr2_p.ads: Bump size of array to 9.
* gnat.dg/addr2_p.ads: Bump size of array to 9.
From-SVN: r128295
-rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | 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 4d294e1..f0555be 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 b85d13a..dd409d6 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; |