diff --git a/.gitattributes b/.gitattributes
index 10d878cadb..14159ff9bf 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw35224.pp b/tests/webtbs/tw35224.pp
new file mode 100644
index 0000000000..98b01a0cea
--- /dev/null
+++ b/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.