fpc/tests/tbs/tb0444.pp

{$mode delphi}
unit tb0444;
interface

function Trunc(const x : Single) : Integer;

implementation

function Trunc(const x : Single) : Integer;
 register;
asm
end;

end.