ub0060.pp 299 B

123456789101112131415161718192021
  1. { Old file: tbs0067.pp }
  2. { Shows incorrect symbol resolution when using uses in implementation More info can be found in file tbs0067b.pp. }
  3. unit ub0060;
  4. interface
  5. type
  6. tlong=record
  7. a : longint;
  8. end;
  9. procedure p(var t:tlong);
  10. implementation
  11. procedure p(var t:tlong);
  12. begin
  13. end;
  14. end.