fpc/tests/tbs/tb0373.pp

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

begin
end.