fpcsrc/tests/tbs/tb0373.pp


1
2
3
4
5
6
7
8
9

{ %VERSION=1.1 }
{$ifdef fpc}{$mode delphi}{$endif}
type
   tmyinterface = interface
      procedure p(p : longint); // Delphi allows this
   end;

begin
end.