re PR ada/38394 (clashing assembler symbols)

PR ada/38394
	* gnat.dg/array13.ad[sb]: New test.

From-SVN: r159798

gcc/testsuite/ChangeLog

@@ -1,3 +1,8 @@
+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>
 

gcc/testsuite/gnat.dg/array13.adb

@@ -0,0 +1,14 @@
+-- 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;

gcc/testsuite/gnat.dg/array13.ads

@@ -0,0 +1,13 @@
+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;