unit bug0067;

interface

type
  tlong=record
    a : longint;
  end;

procedure p(var t:tlong);

implementation

procedure p(var t:tlong);
begin
end;

end.