mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:48:14 +02:00
23 lines
328 B
ObjectPascal
23 lines
328 B
ObjectPascal
{ %OPT=-O- -O2}
|
|
{$mode objfpc}
|
|
program DivTest;
|
|
|
|
function fquotient(a, b: integer): integer; inline;
|
|
begin
|
|
result := a div b;
|
|
end;
|
|
|
|
procedure test;
|
|
var seconds, min: integer;
|
|
begin
|
|
seconds := 3600 + 60 * 40 + 52;
|
|
min := fquotient(seconds, 60);
|
|
WriteLn(min);
|
|
if min<>100 then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|