fpcsrc/tests/webtbs/tw9221.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{%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.