git-svn-id: trunk@33201 -
@@ -1,12 +1,12 @@
var x:uint64;
y:longword;
begin
- y:=123;
+ y:=12;
x:=y*uint64(10116239910488455739);
if x<>8365656051540097625 then
halt(1);
x:=y*uint64($8000000000000000);
- if x<>(uint64(123) shl 63) then
+ if x<>(uint64(12) shl 63) then
halt(2);
end.