1 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/gna/issue317/repro3.vhdl b/testsuite/gna/issue317/repro3.vhdl
new file mode 100644
index 000000000..1f382ad21
--- /dev/null
+++ b/testsuite/gna/issue317/repro3.vhdl
@@ -0,0 +1,25 @@
+package repro3_sortnet_tb is
+  generic (
+    DATA_BITS			: positive
+    );
+
+  subtype T_DATA	is bit_vector(DATA_BITS - 1 downto 0);
+  type T_DATA_VECTOR	is array(natural range <>) of T_DATA;
+
+  procedure dec (v : inout natural);
+end repro3_sortnet_tb;
+
+package body repro3_sortnet_tb is
+  procedure dec (v : inout natural) is
+  begin
+    v := v - 1;
+  end dec;
+end repro3_sortnet_tb;
+
+entity repro3 is
+end repro3;
+
+architecture behav of repro3 is
+  package tb is new work.repro3_sortnet_tb generic map (3);
+begin
+end behav;