fpc/tests/webtbs/tw4881.pp
2006-03-27 09:07:33 +00:00

15 lines
246 B
ObjectPascal

{ 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.