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

begin
end.