tests/webtbs/tw4881.pp


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

{ Source provided for Free Pascal Bug Report 4881 }
{ Submitted by "Jasper Neumann" on  2006-03-07 }
{ e-mail: _-jane-_@web.de }
type
  openstring=integer;

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

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