improved tb0625. boolean casting should disregard the upper bits

git-svn-id: trunk@35107 -

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.