fpcsrc/tests/webtbs/tw6742.pp


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

type
  openstring=integer;

procedure test(var x:openstring);
begin
  writeln(x);
end;

var
  x: openstring;
begin
  x:=1;
  test(x);
end.