From 46fe5c5c38eb79a875f850330f680550c3091397 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 30 Aug 2013 08:51:16 +0000
Subject: [PATCH] tests: fix range check error

git-svn-id: trunk@42523 -
---
 test/bugs/bug8432.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/bugs/bug8432.pas b/test/bugs/bug8432.pas
index fa8c888e4c..fe74f3c1e9 100644
--- a/test/bugs/bug8432.pas
+++ b/test/bugs/bug8432.pas
@@ -73,13 +73,13 @@ begin
   with FMap do
   begin
     for i := 0 to 255 do begin
-      ID := i shl 24;
+      ID := dword(i) shl 24;
       AInt:=i;
       Add(ID,AInt);
     end;
     for i := 0 to 255 do begin
       AInt:= 0;
-      ID := i shl 24;
+      ID := dword(i) shl 24;
       GetData(ID,AInt);
       AssertEquals('Wrong entry for '+ IntToStr(i), i, AInt);
     end;