Kaynağa Gözat

+ test for already fixed #26016

git-svn-id: trunk@49407 -
florian 4 yıl önce
ebeveyn
işleme
0a3efb6702
2 değiştirilmiş dosya ile 12 ekleme ve 0 silme
  1. 1 0
      .gitattributes
  2. 11 0
      tests/webtbf/tw26016.pp

+ 1 - 0
.gitattributes

@@ -16743,6 +16743,7 @@ tests/webtbf/tw25861.pp svneol=native#text/plain
 tests/webtbf/tw25862.pp svneol=native#text/plain
 tests/webtbf/tw25915.pp svneol=native#text/pascal
 tests/webtbf/tw25951.pp svneol=native#text/pascal
+tests/webtbf/tw26016.pp svneol=native#text/pascal
 tests/webtbf/tw26176.pp svneol=native#text/pascal
 tests/webtbf/tw26193.pp svneol=native#text/pascal
 tests/webtbf/tw26363.pp svneol=native#text/plain

+ 11 - 0
tests/webtbf/tw26016.pp

@@ -0,0 +1,11 @@
+{ %fail }
+program Project1;
+type
+   T1 = array of integer;
+   T2 = array of T1;
+   T3 = array of T2;
+var
+a: T3;
+begin
+   SetLength(a.[0].[0],1);
+end.