diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2012-05-26 13:25:55 +0000 |
---|---|---|
committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-05-26 13:25:55 +0000 |
commit | c4c57c9cbeda074a1e21d469575510791ed8667e (patch) | |
tree | a89566ab3a8b6b70e38a3637bcf02f9042c5b13e /gcc | |
parent | 9be94227513a763dd33aede3f1479a1248c87a64 (diff) | |
download | gcc-c4c57c9cbeda074a1e21d469575510791ed8667e.zip gcc-c4c57c9cbeda074a1e21d469575510791ed8667e.tar.gz gcc-c4c57c9cbeda074a1e21d469575510791ed8667e.tar.bz2 |
re PR ada/50294 (ICE in output_constructor_regular_field)
PR ada/50294
* gnat.dg/array21.adb: New test.
From-SVN: r187914
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gnat.dg/array21.adb | 16 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0433d62..f3a3b73 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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> diff --git a/gcc/testsuite/gnat.dg/array21.adb b/gcc/testsuite/gnat.dg/array21.adb new file mode 100644 index 0000000..c642afd --- /dev/null +++ b/gcc/testsuite/gnat.dg/array21.adb @@ -0,0 +1,16 @@ +-- { 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; |