@@ -0,0 +1,24 @@
+{ Should give the same error as /tbf/tb0125.pp }
+type
+
+ tinterface = interface
+ procedure x;
+ end;
+ tderivedinterface = interface(tinterface)
+ procedure testintparam(var i : tinterface);
+ begin
+var
+ t1 : tderivedinterface;
+begin
+ testintparam(t1);
+end.