From 44d59462a3176960c5e48682658a13265f888ede Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 26 Jan 2015 09:52:50 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/unchecked_convert1.adb | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + PR testsuite/64712 + * gnat.dg/unchecked_convert1.adb (Unchecked_Convert1): Initialize A. + 2015-01-26 Tony Liu * 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; -- 2.30.2