git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR ada/50294 (ICE in output_constructor_regular_field) 

PR ada/50294
	* gnat.dg/array21.adb: New test.

From-SVN: r187914
This commit is contained in:
Eric Botcazou 2012-05-26 13:25:55 +00:00 committed by Eric Botcazou
parent 9be9422751
commit c4c57c9cbe
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2012-05-26 Eric Botcazou <ebotcazou@adacore.com>
PR ada/50294
* gnat.dg/array21.adb: New test.
2012-05-26 Eric Botcazou <ebotcazou@adacore.com> 2012-05-26 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/renaming5.adb: Adjust dg-final directive. * gnat.dg/renaming5.adb: Adjust dg-final directive.

16
gcc/testsuite/gnat.dg/array21.adb Normal file
View File

@ -0,0 +1,16 @@
-- { dg-do run }
with System;
procedure Array21 is
type Index_T is mod System.Memory_Size;
type Arr
is array (Index_T range Index_T'Last/2-3 .. Index_T'Last/2+3) of Integer;
C : constant Arr := (1, others => 2);
begin
if C /= (1, 2, 2, 2, 2, 2, 2) then
raise Program_Error;
end if;
end;