*** empty log message ***

tests/tbs/tb0402.pp

@@ -0,0 +1,14 @@
+type
+   ta = array of longint;
+
+procedure p(i : iunknown;a : ta = nil);
+
+  begin
+  end;
+
+var
+   o : tinterfacedobject;
+
+begin
+   p(o);
+end.