diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-01-26 09:52:50 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-01-26 09:52:50 +0000 |
| commit | 44d59462a3176960c5e48682658a13265f888ede (patch) | |
| tree | 95c3a05cf237a062e50fb23ec5c7fbc8f59b65bc /gcc | |
| parent | 1200ca22d0ab3a0bc0eeee87ca9f68b0d2c7264e (diff) | |
| download | gcc-44d59462a3176960c5e48682658a13265f888ede.zip gcc-44d59462a3176960c5e48682658a13265f888ede.tar.gz gcc-44d59462a3176960c5e48682658a13265f888ede.tar.bz2 | |
re PR testsuite/64712 (FAIL: gnat.dg/unchecked_convert1.adb execution test (x86_64/-m32))
PR testsuite/64712
* gnat.dg/unchecked_convert1.adb (Unchecked_Convert1): Initialize A.
From-SVN: r220104
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/unchecked_convert1.adb | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a04eeec..6d95635 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-01-26 Eric Botcazou <ebotcazou@adacore.com> + + PR testsuite/64712 + * gnat.dg/unchecked_convert1.adb (Unchecked_Convert1): Initialize A. + 2015-01-26 Tony Liu <tony.liu@arm.com> * gcc.target/arm/scd42-1.c: Improve the check for UAL and diff --git a/gcc/testsuite/gnat.dg/unchecked_convert1.adb b/gcc/testsuite/gnat.dg/unchecked_convert1.adb index eb63d59..1a02c19 100644 --- a/gcc/testsuite/gnat.dg/unchecked_convert1.adb +++ b/gcc/testsuite/gnat.dg/unchecked_convert1.adb @@ -4,6 +4,7 @@ with Ada.Unchecked_Conversion; procedure Unchecked_Convert1 is + type Byte is mod 2**8; type Stream is array (Natural range <>) of Byte; @@ -24,9 +25,10 @@ procedure Unchecked_Convert1 is return Do_Sum (To_Chunk (S(S'First .. S'First + Rec'Size / 8 - 1))); end; - A : Stream (1..9); + A : Stream (1..9) := (others => 0); I : Integer; begin + A (9) := 1; I := Sum (A(1..8)); end; |