mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 17:45:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

addr2_p.ads: Bump size of array to 9.

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

From-SVN: r128295
This commit is contained in:
Eric Botcazou 2007-09-09 11:22:30 +00:00 committed by Eric Botcazou
parent 89675e7349
commit 7a8faae861
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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> 2007-09-09 Ira Rosen <irar@il.ibm.com>
* gcc.dg/vect/vect.exp: Compile tests starting with slp-. * gcc.dg/vect/vect.exp: Compile tests starting with slp-.

6
gcc/testsuite/gnat.dg/addr2_p.ads
View File

@ -1,10 +1,10 @@
package addr2_p is package addr2_p is
type Block is array (1 .. 4) of Integer; type Block is array (1 .. 9) of Integer;
procedure Process (Blk : Block); procedure Process (Blk : Block);
B1 : constant Block := Block'((1,2,3,4)); B1 : constant Block := Block'((1,2,3,4,5, others => 0));
B2 : constant Block := (1,2,3,4); B2 : constant Block := (1,2,3,4,5, others => 0);
end; end;