From feb4c2937a1dafe76e6daf03e03ef106f60545c7 Mon Sep 17 00:00:00 2001
From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 24 May 2010 21:43:31 +0000
Subject: re PR ada/38394 (clashing assembler symbols)

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

From-SVN: r159798
---
 gcc/testsuite/ChangeLog           |  5 +++++
 gcc/testsuite/gnat.dg/array13.adb | 14 ++++++++++++++
 gcc/testsuite/gnat.dg/array13.ads | 13 +++++++++++++
 3 files changed, 32 insertions(+)
 create mode 100644 gcc/testsuite/gnat.dg/array13.adb
 create mode 100644 gcc/testsuite/gnat.dg/array13.ads

(limited to 'gcc')

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index de8bb6e..8fd1fd58 100644
--- a/gcc/testsuite/ChangeLog
+++ b/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>
 
diff --git a/gcc/testsuite/gnat.dg/array13.adb b/gcc/testsuite/gnat.dg/array13.adb
new file mode 100644
index 0000000..245d40a
--- /dev/null
+++ b/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;
diff --git a/gcc/testsuite/gnat.dg/array13.ads b/gcc/testsuite/gnat.dg/array13.ads
new file mode 100644
index 0000000..0d0a8df
--- /dev/null
+++ b/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;
-- 
cgit v1.1