PR ada/38394
* gnat.dg/array13.ad[sb]: New test.
From-SVN: r159798
+2010-05-24 Eric Botcazou <ebotcazou@adacore.com>
+
+ PR ada/38394
+ * gnat.dg/array13.ad[sb]: New test.
+
2010-05-24 Daniel Jacobowitz <dan@codesourcery.com>
Sandra Loosemore <sandra@codesourcery.com>
--- /dev/null
+-- PR ada/38394
+-- Reporter: Michael Völske <michael.voelske@medien.uni-weimar.de>
+
+-- { dg-do assemble }
+
+package body Array13 is
+
+ procedure Foo is
+ X, Y : T;
+ begin
+ null;
+ end;
+
+end Array13;
--- /dev/null
+package Array13 is
+
+ Max : Natural := 1;
+
+ type Arr is array (Natural range 0..Max) of Natural;
+
+ type T is record
+ A : Arr := (others => 0);
+ end record;
+
+ procedure Foo;
+
+end Array13;