From 94a56ba3d586581f9663135818147326551867aa Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 6 Jan 2024 22:18:30 +0100
Subject: [PATCH]   + test from Rika for merge request 566

---
 tests/tbs/tb0708.pp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/tbs/tb0708.pp

diff --git a/tests/tbs/tb0708.pp b/tests/tbs/tb0708.pp
new file mode 100644
index 0000000000..edb69bfc1a
--- /dev/null
+++ b/tests/tbs/tb0708.pp
@@ -0,0 +1,12 @@
+procedure FillSomeQWords;
+var
+	q: array[0 .. 9] of uint64;
+	rep: int32;
+begin
+	for rep := 1 to 128 * 1024 * 1024 do
+		FillQWord(q, length(q), 1234);
+end;
+
+begin
+	FillSomeQWords;
+end.