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