From b2581a045d696a43bef147cd782721182db14f2f Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 15 Jan 2015 06:36:00 +0100
Subject: Testcase for locally static array comparaison.

---
 testsuite/gna/bug06/repro.vhdl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 testsuite/gna/bug06/repro.vhdl

(limited to 'testsuite/gna/bug06/repro.vhdl')

diff --git a/testsuite/gna/bug06/repro.vhdl b/testsuite/gna/bug06/repro.vhdl
new file mode 100644
index 0000000..02b275d
--- /dev/null
+++ b/testsuite/gna/bug06/repro.vhdl
@@ -0,0 +1,29 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity foo is
+end entity;
+architecture fum of foo is
+    constant A: std_logic_vector (7 downto 0) := X"04";
+    
+    function slv_image(inp: std_logic_vector) return string is
+        variable image_str: string (1 to inp'length);
+        alias input_str:  std_logic_vector (1 to inp'length) is inp;
+    begin
+        for i in input_str'range loop
+            image_str(i) := character'VALUE(std_ulogic'IMAGE(input_str(i)));
+        end loop;
+        return image_str;
+    end;
+        
+begin
+SOME_LABEL:
+    process
+    begin
+        wait for 1 ns;
+        if A <= "00001011" then -- if A <= std_logic_vector'("00001011") then
+            report "A = " & slv_image(A) ;
+        end if;
+        wait;
+    end process;
+end architecture;
-- 
cgit