freepascal.compiler/tests/tbs/tb0373.pp

{ %VERSION=1.1 }
type
   tmyinterface = interface
      procedure p(p : longint); // Delphi allows this
   end;

begin
end.