fpcsrc/tests/tbs/tb0500.pp


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

{ %OPT=-Seh -vh }
program test;
uses math;

{ compiler claims that math isn't used, while the ** operator is used from it }

function f(r: real; i: integer): int64;
begin
  f:= trunc(r**i);
end;

begin
  writeln(f(2.0,2));
end.