From 442cbed9ad0fc258f155b88f30929b217ecab6e1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 11 Dec 2016 13:26:04 +0000
Subject: [PATCH] improved tb0625. boolean casting should disregard the upper
 bits

git-svn-id: trunk@35107 -
---
 tests/tbs/tb0625.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/tbs/tb0625.pp b/tests/tbs/tb0625.pp
index 7554253014..abddb13c01 100644
--- a/tests/tbs/tb0625.pp
+++ b/tests/tbs/tb0625.pp
@@ -20,4 +20,8 @@ begin
   b := Boolean(i);
   if not b then
     Halt(4);
+  i := $ffffffffffffff00;
+  b := Boolean(i);
+  if b then
+    Halt(5);
 end.