fpc/tests/tbs/tb0395.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

12 lines
139 B
ObjectPascal

{ %VERSION=1.1 }
type
dummyrec = record
i : int64;
end;
var
d: double;
begin
d := double(dummyrec($ffffffff80000000));
end.