mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 20:28:13 +02:00
c89ea4412f
(e.g. length, lo/hi, ord, etc). Not the same as mantis #9918, but somewhat related git-svn-id: trunk@8770 -
10 lines
58 B
ObjectPascal
10 lines
58 B
ObjectPascal
{ %fail }
|
|
|
|
{$x+}
|
|
|
|
var
|
|
d: double;
|
|
begin
|
|
trunc(d);
|
|
end.
|