Commit 44d59462 by Eric Botcazou Committed by Eric Botcazou

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
parent 1200ca22
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> 2015-01-26 Tony Liu <tony.liu@arm.com>
* gcc.target/arm/scd42-1.c: Improve the check for UAL and * gcc.target/arm/scd42-1.c: Improve the check for UAL and
......
...@@ -4,6 +4,7 @@ ...@@ -4,6 +4,7 @@
with Ada.Unchecked_Conversion; with Ada.Unchecked_Conversion;
procedure Unchecked_Convert1 is procedure Unchecked_Convert1 is
type Byte is mod 2**8; type Byte is mod 2**8;
type Stream is array (Natural range <>) of Byte; type Stream is array (Natural range <>) of Byte;
...@@ -24,9 +25,10 @@ procedure Unchecked_Convert1 is ...@@ -24,9 +25,10 @@ procedure Unchecked_Convert1 is
return Do_Sum (To_Chunk (S(S'First .. S'First + Rec'Size / 8 - 1))); return Do_Sum (To_Chunk (S(S'First .. S'First + Rec'Size / 8 - 1)));
end; end;
A : Stream (1..9); A : Stream (1..9) := (others => 0);
I : Integer; I : Integer;
begin begin
A (9) := 1;
I := Sum (A(1..8)); I := Sum (A(1..8));
end; end;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment