From 0ec2b140ac3ac7d0d754c6aaefe28c7c3cf11d28 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 8 Mar 2022 08:05:59 +0100
Subject: testsuite/synth: add a test for #1993

---
 testsuite/synth/issue1993/bug.vhdl     | 59 ++++++++++++++++++++++++++++++++++
 testsuite/synth/issue1993/repro1.vhdl  | 47 +++++++++++++++++++++++++++
 testsuite/synth/issue1993/testsuite.sh |  9 ++++++
 3 files changed, 115 insertions(+)
 create mode 100644 testsuite/synth/issue1993/bug.vhdl
 create mode 100644 testsuite/synth/issue1993/repro1.vhdl
 create mode 100755 testsuite/synth/issue1993/testsuite.sh

diff --git a/testsuite/synth/issue1993/bug.vhdl b/testsuite/synth/issue1993/bug.vhdl
new file mode 100644
index 000000000..ab4eca231
--- /dev/null
+++ b/testsuite/synth/issue1993/bug.vhdl
@@ -0,0 +1,59 @@
+library IEEE;
+use IEEE.std_logic_1164.all;
+use IEEE.numeric_std.all;
+
+entity bug is
+	port (
+		clk :  in std_ulogic
+	);
+end bug;
+
+architecture struct of bug is
+
+	type a_t is record
+		value : unsigned;
+	end record;
+
+	type a_array_t is array(natural range<>) of a_t;
+
+	type b_t is record
+		a : a_array_t;
+	end record;
+
+	type b_array_t is array(natural range<>) of b_t;
+
+	type table_t is array (natural range<>, natural range<>) of a_t;
+
+	function make_b return b_array_t is
+		variable ret : b_array_t(0 to 0)(a(0 to 31)(value(31 downto 0)));
+	begin
+		return ret;
+	end function;
+
+	function calculate_b return b_array_t is
+		function calculate_b(prefix : b_array_t; cur_value : natural) return b_array_t is
+		begin
+			if cur_value > 0 then
+				return prefix;
+			else
+				return calculate_b(prefix & make_b, cur_value + 1);
+			end if;
+		end function;
+
+		variable empty : b_array_t(0 to -1)(a(0 to 31)(value(31 downto 0)));
+	begin
+		return calculate_b(empty, 0);
+	end function;
+
+	function calculate_table(b : b_array_t) return table_t is
+		variable ret : table_t(0 to b'length-1, 0 to b(0).a'length-1)(value(31 downto 0));
+	begin
+		return ret;
+	end function;
+
+	constant b     : b_array_t := calculate_b;
+	constant table : table_t := calculate_table(b);
+begin
+
+end architecture;
+
diff --git a/testsuite/synth/issue1993/repro1.vhdl b/testsuite/synth/issue1993/repro1.vhdl
new file mode 100644
index 000000000..9c6550f5e
--- /dev/null
+++ b/testsuite/synth/issue1993/repro1.vhdl
@@ -0,0 +1,47 @@
+entity bug is
+	port (
+		clk :  in bit
+	);
+end bug;
+
+architecture struct of bug is
+
+  type a_t is record
+    value : bit_vector;
+  end record;
+
+  type a_array_t is array(natural range<>) of a_t;
+
+  type b_t is record
+    a : a_array_t;
+  end record;
+
+  type b_array_t is array(natural range<>) of b_t;
+
+  type table_t is array (natural range<>, natural range<>) of a_t;
+
+  function make_b return b_array_t is
+    variable ret : b_array_t(0 to 0)(a(0 to 31)(value(31 downto 0)));
+  begin
+    return ret;
+  end function;
+
+  function calculate_b return b_array_t
+  is
+    variable empty : b_array_t(0 to -1)(a(0 to 31)(value(31 downto 0)));
+  begin
+    return empty & make_b;
+  end function;
+
+  function calculate_table(b : b_array_t) return table_t is
+    variable ret : table_t(0 to b'length-1, 0 to b(0).a'length-1)(value(31 downto 0));
+  begin
+    return ret;
+  end function;
+
+  constant b     : b_array_t := calculate_b;
+  constant table : table_t := calculate_table(b);
+begin
+
+end architecture;
+
diff --git a/testsuite/synth/issue1993/testsuite.sh b/testsuite/synth/issue1993/testsuite.sh
new file mode 100755
index 000000000..bb55be7f0
--- /dev/null
+++ b/testsuite/synth/issue1993/testsuite.sh
@@ -0,0 +1,9 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+GHDL_STD_FLAGS=--std=08
+synth_only repro1
+synth_only bug
+
+echo "Test successful"
-- 
cgit v1.2.3