tw3218.pp 441 B

123456789101112131415161718192021222324
  1. { %fail }
  2. { Source provided for Free Pascal Bug Report 3218 }
  3. { Submitted by "Vincent Snijders" on 2004-07-20 }
  4. { e-mail: [email protected] }
  5. {$mode objfpc}
  6. uses
  7. classes;
  8. type TAProc = procedure(const s: string; o: TObject);
  9. var AProc: TAProc;
  10. procedure A(const s: string; c: TComponent);
  11. begin
  12. c.Name := s;
  13. end;
  14. var
  15. o1: TObject;
  16. begin
  17. AProc:=@A; //this line should generate an error
  18. o1 := TObject.Create;
  19. AProc('',o1);
  20. end.