procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR ada/50294 (ICE in output_constructor_regular_field)

Browse source 
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>
* 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;