fpcsrc/tests/webtbs/tw4533.pp


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

{$mode objfpc}
{$openstrings+}
procedure t(out s: shortstring);
begin
  writeln(high(s));
  if high(s) <> 4 then
    halt(1);
end;

var
  s: string[4];
begin
  t(s);
end.