1 files changed, 47 insertions, 0 deletions
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;
+