tw3173.pp 314 B

1234567891011121314151617181920
  1. { Source provided for Free Pascal Bug Report 3173 }
  2. { Submitted by "Dominik Zablotny" on 2004-06-18 }
  3. { e-mail: [email protected] }
  4. program test;
  5. {$ifdef fpc}
  6. {$mode delphi}
  7. {$else}
  8. type
  9. codepointer = pointer;
  10. {$endif}
  11. var
  12. p: procedure of object;
  13. function f:codepointer;
  14. begin
  15. end;
  16. begin
  17. @p := f;
  18. end.