mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
14 lines
198 B
ObjectPascal
14 lines
198 B
ObjectPascal
{%target=win32,win64}
|
|
|
|
var
|
|
s: widestring;
|
|
begin
|
|
winwidestringalloc:=false;
|
|
s:='1234';
|
|
SetLength(s, 10);
|
|
if Length(s) <> 10 then begin
|
|
writeln('Test failed!');
|
|
Halt(1);
|
|
end;
|
|
end.
|