fpcsrc/tests/webtbs/tw19077.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

uses
  math;
var
  c : currency;
begin
{$ifdef FPC_HAS_TYPE_EXTENDED}
  c:=1.5625;
  c:=RoundTo(c,-1);
  if c<>1.6 then
    halt(1);
  writeln('ok');
{$endif FPC_HAS_TYPE_EXTENDED}
end.