fpc/tests/tbs/tb0714.pp
2024-04-10 23:01:25 +02:00

8 lines
97 B
ObjectPascal

var
s : string[20];
begin
setlength(s,21);
if length(s)>sizeof(s)-1 then
halt(1);
end.