re PR testsuite/64712 (FAIL: gnat.dg/unchecked_convert1.adb execution test (x86_64...

	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 a04eeecfc76ea89045b395f49e570b611c708738..6d9563562f20e8db6be1cbf6da777ed2b6fe347d 100644 (file)
--- 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 eb63d59a884d47e5ab3c5061ff0ca0eb67be8f4b..1a02c195b7cb636b9b4eae04093d777df098d9da 100644 (file)
--- 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;