fpc/bugs/bug0067.pp
1998-03-25 11:26:49 +00:00

19 lines
157 B
ObjectPascal

unit bug0067;
interface
type
tlong=record
a : longint;
end;
procedure p(var t:tlong);
implementation
procedure p(var t:tlong);
begin
end;
end.