From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 26 Jan 2015 09:52:50 +0000 (+0000)
Subject: re PR testsuite/64712 (FAIL: gnat.dg/unchecked_convert1.adb execution test (x86_64... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=44d59462a3176960c5e48682658a13265f888ede;p=gcc.git

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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a04eeecfc76..6d9563562f2 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 eb63d59a884..1a02c195b7c 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;