testsuite/synth: add a test for #2270

1 files changed, 33 insertions, 0 deletions

diff --git a/testsuite/synth/issue2270/fun1.vhdl b/testsuite/synth/issue2270/fun1.vhdl
new file mode 100644
index 000000000..ec7471173
--- /dev/null
+++ b/testsuite/synth/issue2270/fun1.vhdl
@@ -0,0 +1,33 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity fun1 is
+  port (
+    d : in  std_logic_vector(3 downto 0);
+    q : out std_logic_vector(4 downto 0)
+    );
+end entity;
+
+architecture behaviour of fun1 is
+
+  function fp (i : natural; v : std_logic_vector(3 downto 0)) return std_logic is
+  begin
+    if i > 3 or i < 0
+    then
+      return 'X';
+    else
+      return v(i);
+    end if;
+  end function;
+
+begin
+  process (d)
+    impure function get_fp1 (i : natural) return std_logic is
+    begin
+      return fp(i, d);
+    end function;
+  begin
+    q <= (others => '0');
+    q(2) <= get_fp1(0);
+  end process;
+end architecture;