瀏覽代碼

Merged revisions 7754 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r7754 | yury | 2007-06-21 11:31:10 +0200 (Thu, 21 Jun 2007) | 2 lines

* allow assignment of empty dynarray to variant and empty vararray to dynarray.
+ test.
........

git-svn-id: branches/fixes_2_2@8575 -

peter 18 年之前
父節點
當前提交
2d783264ea
共有 2 個文件被更改,包括 10 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 9 0
      tests/tbs/tb0537.pp

+ 1 - 0
.gitattributes

@@ -6375,6 +6375,7 @@ tests/tbs/tb0533.pp svneol=native#text/plain
 tests/tbs/tb0534.pp svneol=native#text/plain
 tests/tbs/tb0535.pp svneol=native#text/plain
 tests/tbs/tb0536.pp svneol=native#text/plain
+tests/tbs/tb0537.pp svneol=native#text/plain
 tests/tbs/tb0540.pp svneol=native#text/x-pascal
 tests/tbs/tb0541.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain

+ 9 - 0
tests/tbs/tb0537.pp

@@ -0,0 +1,9 @@
+uses variants;
+
+var
+  d: array of variant;
+  v: variant;
+begin
+  v:=d;
+  d:=v;
+end.