mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +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
64 B
ObjectPascal
10 lines
64 B
ObjectPascal
{ %fail }
|
|
|
|
{$x+}
|
|
|
|
var
|
|
s: shortstring;
|
|
begin
|
|
length(s);
|
|
end.
|