From d78dbd5d5920bb7279937138fb529bfd05f44b6b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 16 Mar 2019 20:01:57 +0000
Subject: [PATCH] + test from mantis #35224 (already works)
git-svn-id: trunk@41718 -
---
.gitattributes | 1 +
tests/webtbs/tw35224.pp | 16 ++++++++++++++++
2 files changed, 17 insertions(+)
create mode 100644 tests/webtbs/tw35224.pp
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.