testsuite/gna: add a test for #1123

1 files changed, 32 insertions, 0 deletions

diff --git a/testsuite/gna/issue1123/b.vhdl b/testsuite/gna/issue1123/b.vhdl
new file mode 100644
index 000000000..36e18b9e9
--- /dev/null
+++ b/testsuite/gna/issue1123/b.vhdl
@@ -0,0 +1,32 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity A is
+port(x: in std_ulogic_vector(4 downto 0));
+end entity;
+
+architecture test of A is
+begin
+end architecture;
+
+entity B is
+end entity;
+
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+architecture test of B is
+    function to_vector(signal d: unsigned(4 downto 0)) return std_ulogic_vector is
+    begin
+        return std_ulogic_vector(d);
+    end function;
+
+    signal s: unsigned(4 downto 0) := (others => '0');
+begin
+    test: entity work.A
+    port map(
+        x => to_vector(s)
+    );
+end architecture;