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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4c592f85f1223c1ad6145dc1722528efaeba09e5..4c899bd9a515cd950d32cac36cd46389d54334e5 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-24  Thomas Koenig  <tkoenig@netcologne.de>
 
        Backport from trunk

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;