re PR ada/50294 (ICE in output_constructor_regular_field)

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

From-SVN: r187914

gcc/testsuite/ChangeLog

 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.
 
 2012-05-25  Paolo Carlini  <paolo.carlini@oracle.com>

gcc/testsuite/gnat.dg/array21.adb

+-- { 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;