[fpc-pascal] Win64 and currency

[LacaK]

Hi *,
I encounter strange thing under FPC 2.7.1 and Win64 target.
Can anybody test this program:
========================
const
  test: array[0..0] of currency = (-10);
var
  c:currency;

begin
  c := -10;
  writeln(c);
  writeln(test[0]);
  readln;
end.

========================
Results:
-1.000000000000000000E+01
-1.000000000000000000E-03

Thanks
-Laco.