*** empty log message ***

tests/test/testitf5.pp

@@ -0,0 +1,11 @@
+{ $version >= 1.1}
+{$mode objfpc}
+type
+  IMyInterface = interface
+    function f : longint;
+    procedure p(a : longint);
+    property x : longint read f write p;
+  end;
+
+begin
+end.