fpcsrc/tests/webtbs/tw7262.pp


1
2
3
4
5
6
7
8
9
10
11

{ %OPT=-O2 }
{$MODE ObjFpc}

function IsPos(const v:Double):Boolean;
begin
  Result := (PChar(@v)+6)^ > #0;
end;

begin
  WriteLn(IsPos(23));
end.