function DoTest: double; safecall;
begin
  DoTest:=1.0;
end;

begin
  writeln(DoTest);
end.