1 files changed, 32 insertions, 0 deletions
diff --git a/testsuite/gna/issue2353/repro1.vhdl b/testsuite/gna/issue2353/repro1.vhdl
new file mode 100644
index 000000000..073f10251
--- /dev/null
+++ b/testsuite/gna/issue2353/repro1.vhdl
@@ -0,0 +1,32 @@
+package repro1_gpkg is
+  generic (type t);
+
+  function get return natural;
+end;
+
+
+package body repro1_gpkg is
+  function get1 return natural is
+  begin
+    report "get1 called";
+    return 123;
+  end get1;
+  
+  constant c : natural := get1;
+
+  function get return natural is
+  begin
+    report "get called, return: " & natural'image (c);
+    return c;
+  end get;
+end;
+
+entity repro1 is
+end;
+
+architecture behav of repro1 is
+  package inst is new work.repro1_gpkg generic map (t => bit);
+begin
+  assert inst.get > 120 and inst.get < 130 severity failure;
+end;
+