Add initial testsuite, using regression tests from bugs or support

reported on gna.org

2 files changed, 39 insertions, 0 deletions

diff --git a/testsuite/gna/bug20597/20597.vhd b/testsuite/gna/bug20597/20597.vhd
new file mode 100644
index 0000000..3294762
--- /dev/null
+++ b/testsuite/gna/bug20597/20597.vhd
@@ -0,0 +1,27 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity e is
+end entity e;
+
+architecture a of e is
+
+signal operator_for_cmp : std_logic_vector(7 downto 0) := (others => 'X');
+
+begin
+
+process (operator_for_cmp) is
+begin
+   case operator_for_cmp is
+	when "00000000" =>
+		null;
+	when "00000001" =>
+		null;
+	when "00000002" => -- Me being stupid
+		null;
+	when "00000003" => --Again
+      when others => null;
+   end case;
+end process;
+
+end architecture;
diff --git a/testsuite/gna/bug20597/testsuite.sh b/testsuite/gna/bug20597/testsuite.sh
new file mode 100755
index 0000000..11438e4
--- /dev/null
+++ b/testsuite/gna/bug20597/testsuite.sh
@@ -0,0 +1,12 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+#echo "Skipped !!!!!!!!"
+#exit 0
+
+analyze_failure 20597.vhd
+
+clean
+
+echo "Test successful"