diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-05-24 21:43:31 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-05-24 21:43:31 +0000 |
| commit | feb4c2937a1dafe76e6daf03e03ef106f60545c7 (patch) | |
| tree | 7fd0b4636995a3d35e9b36f7ef6776c056e5c884 | |
| parent | 427188d5b2c9dabca24dc147f7a7cddbe5d35e66 (diff) | |
| download | gcc-feb4c2937a1dafe76e6daf03e03ef106f60545c7.zip gcc-feb4c2937a1dafe76e6daf03e03ef106f60545c7.tar.gz gcc-feb4c2937a1dafe76e6daf03e03ef106f60545c7.tar.bz2 | |
re PR ada/38394 (clashing assembler symbols)
PR ada/38394
* gnat.dg/array13.ad[sb]: New test.
From-SVN: r159798
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/array13.adb | 14 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/array13.ads | 13 |
3 files changed, 32 insertions, 0 deletions
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; |