mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 00:08:16 +02:00
13 lines
180 B
ObjectPascal
13 lines
180 B
ObjectPascal
{$q+}
|
|
program IntCalcBug;
|
|
|
|
var i, j1, j2 : LongInt;
|
|
|
|
begin
|
|
i := 52000;
|
|
j1 := 1440 - round (i/60);
|
|
j2 := -round (i/60) + 1440;
|
|
if (j1 <> j2) then
|
|
halt(1);
|
|
end.
|