From bff6c33d71382f5374468c757fe187dbeab3a661 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 16 Nov 2021 08:01:04 +0100
Subject: testsuite/gna: add scripts to generate 1d/2d aggregates

---
 testsuite/gna/bug0125/gen1d.py | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 testsuite/gna/bug0125/gen1d.py

(limited to 'testsuite/gna/bug0125/gen1d.py')

diff --git a/testsuite/gna/bug0125/gen1d.py b/testsuite/gna/bug0125/gen1d.py
new file mode 100755
index 000000000..265a7f494
--- /dev/null
+++ b/testsuite/gna/bug0125/gen1d.py
@@ -0,0 +1,30 @@
+#!/usr/bin/env python3
+# Generate a big aggregate
+
+import sys
+import random
+
+out = sys.stdout
+
+
+depth = 1024
+width = 24
+
+out.write("""
+package repro is
+  type array2d is array(0 to {}) of bit_vector({} downto 0);
+
+  constant cst : array2d :=
+  (
+""".format(depth - 1, width - 1))
+
+fmt = 'b"{{:0{}b}}"'.format(width)
+
+for i in range(depth):
+    if i != 0:
+        out.write(',\n')
+    out.write ('   ' + fmt.format(random.randint(0, 1<<width)));
+out.write("""
+   );
+end repro;
+""")
-- 
cgit v1.2.3