+ test from mantis #35224 (already works)

git-svn-id: trunk@41718 -

.gitattributes

@@ -16565,6 +16565,7 @@ tests/webtbs/tw35139.pp svneol=native#text/plain
 tests/webtbs/tw35139a.pp svneol=native#text/plain
 tests/webtbs/tw35149.pp svneol=native#text/plain
 tests/webtbs/tw35187.pp svneol=native#text/pascal
+tests/webtbs/tw35224.pp svneol=native#text/plain
 tests/webtbs/tw3523.pp svneol=native#text/plain
 tests/webtbs/tw35233.pp svneol=native#text/plain
 tests/webtbs/tw3529.pp svneol=native#text/plain

tests/webtbs/tw35224.pp

@@ -0,0 +1,16 @@
+{$mode objfpc}
+{$OPTIMIZATION LOOPUNROLL}
+
+type TList = array [0..3] of integer;
+
+var worklist, tmplist : TList;
+
+function flip (const list1: TList; var list2: TList): integer; inline;
+var i: integer;
+begin
+  for i := 0 to 3 do list2[i] := list1[i];
+end;
+
+begin
+  flip (worklist, tmplist);
+end.