fpcsrc/tests/tbs/tb0564.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

{ %opt=-gttt }
{$mode objfpc}


procedure get(out s: string);
begin
end;

procedure test;
var
  s: string[1];
  a,b: byte;
begin
  a:=1;
  b:=2;
  get(s);
  if (a<>1) or
     (b<>2) then
    halt(1);
end;

begin
  test;
end.