Проблемы с math.tan и соответственно math.cotan в win64?

[zub]

Код: Выделить всё

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this },math;

begin
  writeln(tan(1.3613568165555769));
  writeln(tan(pi/4));
  //writeln(cotan(1.3613568165555769));

  readln;
end.  

выводит

Код: Выделить всё

 1.80956544709955E-315
 6.98487350263574E-315

В вин32 и лин64 не проверял, но судя по тому что исходная программа работает нормально - всё ок
баг?
FPC2.7.1 из транка, примерно 1-2 недельной давности

[SSerge]

Код: Выделить всё

4.7046301094784503E+0000
1.0000000000000000E+0000

Win7 x64, 64-битный компилятор из CodeTyphon 3.0

[zub]

да, обновил FPC (rev23040) - заработало