mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
17 lines
297 B
ObjectPascal
17 lines
297 B
ObjectPascal
{$mode delphi}
|
|
|
|
program Project1;
|
|
|
|
function add(a, b : Integer) : Int64;
|
|
begin
|
|
result := Int64(a) * $FFFFFFFF + b;
|
|
end;
|
|
|
|
begin
|
|
|
|
writeLn(add(200210, 1)); // Linux x86_64: 859895402131951
|
|
// Windows i386: -200209
|
|
if add(200210, 1)<>859895402131951 then
|
|
halt(1);
|
|
end.
|