From faea3e601067585394d0d3883b7371ab6a773369 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 11 Mar 2015 04:00:34 +0100
Subject: Add bug11 for fst/ghw issues.

---
 testsuite/gna/bug11/phonybench.vhdl | 59 +++++++++++++++++++++++++++++++++++++
 testsuite/gna/bug11/testsuite.sh    | 10 +++++++
 2 files changed, 69 insertions(+)
 create mode 100644 testsuite/gna/bug11/phonybench.vhdl
 create mode 100755 testsuite/gna/bug11/testsuite.sh

diff --git a/testsuite/gna/bug11/phonybench.vhdl b/testsuite/gna/bug11/phonybench.vhdl
new file mode 100644
index 000000000..040980454
--- /dev/null
+++ b/testsuite/gna/bug11/phonybench.vhdl
@@ -0,0 +1,59 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity phonybench is
+	generic (
+		GENSTR   : string := "adrien";
+		GENSTDLV : std_logic_vector(5 downto 0) := "111000";
+		GENSTDL  : std_logic := '1';
+		GENNAT   : natural := 22
+	);
+end phonybench;
+
+architecture bench of phonybench is
+
+	type char2std_t is array(character) of std_ulogic;
+
+	constant char2std_c : char2std_t := (
+		'U' => 'U',
+		'X' => 'X',
+		'0' => '0',
+		'1' => '1',
+		'Z' => 'Z',
+		'W' => 'W',
+		'L' => 'L',
+		'H' => 'H',
+		'-' => '-',
+		others => 'X'
+	);
+
+	function str2std(arg : string) return std_logic_vector is
+		variable result : std_logic_vector(arg'length - 1 downto 0);
+		variable j : integer;
+	begin
+		j := arg'length - 1;
+		for i in arg'range loop
+			result(j) := char2std_c(arg(i));
+			j := j - 1;
+		end loop;
+		return result;
+	end function;
+
+	signal sigvec1  : std_logic_vector(5 downto 0) := str2std(GENSTR);
+	signal sigvec2  : std_logic_vector(5 downto 0) := GENSTDLV;
+	signal siglog   : std_logic := GENSTDL;
+	signal signat   : natural := GENNAT;
+
+	signal clk : std_logic := '0';
+
+begin
+
+	clk <= not clk after 5 ms;
+
+	sigvec1 <= str2std(GENSTR);
+	sigvec2 <= GENSTDLV;
+	siglog  <= GENSTDL;
+	signat  <= GENNAT;
+
+end architecture;
diff --git a/testsuite/gna/bug11/testsuite.sh b/testsuite/gna/bug11/testsuite.sh
new file mode 100755
index 000000000..b6bf1f3bf
--- /dev/null
+++ b/testsuite/gna/bug11/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze phonybench.vhdl
+elab_simulate phonybench --fst=pb.fst
+
+#clean
+
+echo "Test successful"
-- 
cgit v1.2.3