2
0

tw9176a.pp 255 B

123456789101112131415161718192021222324252627
  1. { %fail }
  2. {$ifdef fpc}
  3. {$mode delphi}
  4. {$endif}
  5. type TBla=class
  6. bla : integer;
  7. procedure Bla;
  8. procedure BlaBla;
  9. end;
  10. procedure TBla.Bla;
  11. begin
  12. end;
  13. procedure TBla.BlaBla;
  14. procedure Bla;
  15. begin
  16. end;
  17. begin
  18. Bla;
  19. end;
  20. begin
  21. end.