mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
20 lines
365 B
ObjectPascal
20 lines
365 B
ObjectPascal
{ %opt=-OoNOCONSTPROP }
|
|
{ This test explicity checks results
|
|
of qword multiplication for which overflow happens.
|
|
Thus, we need an explicit $Q- }
|
|
|
|
{$Q-}
|
|
|
|
var x:uint64;
|
|
y:longword;
|
|
begin
|
|
y:=12;
|
|
x:=y*uint64(10116239910488455739);
|
|
if x<>10714414483604159172 then
|
|
halt(1);
|
|
x:=y*uint64($8000000000000000);
|
|
if x<>(uint64(12) shl 63) then
|
|
halt(2);
|
|
end.
|
|
|