mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:48:11 +02:00
24 lines
333 B
ObjectPascal
24 lines
333 B
ObjectPascal
|
|
program tb0598;
|
|
|
|
{$R-}
|
|
|
|
var
|
|
a: Cardinal;
|
|
b: QWord;
|
|
c1, c2: QWord;
|
|
begin
|
|
a := 1000000;
|
|
b := 10000000000000000000;
|
|
c1 := b div a;
|
|
c2 := 10000000000000000000 div a;
|
|
Write(c1, ' = ', c2, ': ');
|
|
if (c1 <> c2) or (c2 <> 10000000000000) then
|
|
begin
|
|
Writeln('FAIL');
|
|
halt(1);
|
|
end
|
|
else
|
|
Writeln('OK');
|
|
end.
|