mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 07:47:58 +02:00
14 lines
169 B
ObjectPascal
14 lines
169 B
ObjectPascal
program int64modint64bug;
|
|
{$mode delphi}
|
|
const
|
|
a = int64($100000000);
|
|
var
|
|
b: int64 = 123;
|
|
c: int64;
|
|
begin
|
|
c := b mod a;
|
|
if c <> 0 then
|
|
begin
|
|
end;
|
|
end.
|