*** empty log message ***

tests/test/readme.txt

@@ -26,3 +26,4 @@ Units ................. testu1.pp      tests init. & finalization and halt
                         testu5.pp
 case .................. testcase.pp    tests case statements with byte and word
                                        sized decision variables
+Arrays ................ testarr1.pp    small test for open arrays with classes

tests/test/testarr1.pp

@@ -0,0 +1,19 @@
+{$mode objfpc}
+type
+   tc1 = class
+   end;
+
+   tc2 = class(tc1)
+   end;
+
+   tcoc1 = class of tc1;
+   tcoc2 = class of tc2;
+
+procedure p(const a : array of tcoc1);
+
+  begin
+  end;
+
+begin
+   p([tc2]);
+end.