fpcsrc/tests/webtbs/tw2540.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

var
  C : Char;
  S : AnsiString;
begin
  S := '';
  SetLength(S,1);
  S[1] := '?';
  SetLength(S,2);
  S[2] := '?';
  if (s <> '??') then
    halt(1);

  S := '';
  S := S + '?';
  S := S + '?';
  if (s <> '??') then
    halt(1);
end.