1 files changed, 68 insertions, 0 deletions
diff --git a/testsuite/gna/issue2353/pkg_b.vhdl b/testsuite/gna/issue2353/pkg_b.vhdl
new file mode 100644
index 000000000..a5971a5f5
--- /dev/null
+++ b/testsuite/gna/issue2353/pkg_b.vhdl
@@ -0,0 +1,68 @@
+
+library ieee;
+use ieee.std_logic_1164.all;
+
+library osvvm;
+library work;
+
+package b is
+    generic (
+        G_b: integer
+    );
+
+    package a_inst is new work.a generic map (G_b);
+        use a_inst.all;
+
+    -- OSVVM string helper function
+    function ToString(
+        i_my_type   : a_inst.my_type_t
+    ) return string;
+
+    -- OSVVM compare helper function
+    function Compare(
+        i_my_type_a : a_inst.my_type_t;
+        i_my_type_b : a_inst.my_type_t
+    ) return boolean;
+
+    -- scoreboard specificiation
+    package scoreboard is new osvvm.ScoreBoardGenericPkg
+    generic map (
+        ExpectedType        => a_inst.my_type_t,
+        ActualType          => a_inst.my_type_t,
+        match               => Compare,
+        expected_to_string  => ToString,
+        actual_to_string    => ToString
+    );
+
+
+end package b;
+
+package body b is
+
+    function ToString(
+        i_my_type   : a_inst.my_type_t
+    ) return string is
+        constant c_str  : string    := "Num el: " & integer'image(i_my_type.a'length);
+    begin
+        return c_str;
+    end function ToString;
+
+    -- OSVVM compare helper function
+    function Compare(
+        i_my_type_a : a_inst.my_type_t;
+        i_my_type_b : a_inst.my_type_t
+    ) return boolean is
+        variable v_rtn : boolean;
+    begin
+        v_rtn := true;
+
+        for idx in i_my_type_a.a'range loop
+            if i_my_type_a.a(idx) /= i_my_type_b.a(idx) then
+                v_rtn := false;
+            end if;
+        end loop;
+
+        return v_rtn;
+    end function Compare;
+
+end package body b;
+\ No newline at end of file