From 60b4bf2b63cdad9cfd36106f084fcbe94d01d4d5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Aug 2019 12:21:26 +0200
Subject: testsuite/synth: add reproducer for tgingold/ghdlsynth-beta#33

---
 testsuite/synth/issue33/int_test.vhdl  | 31 +++++++++++++++++++++++++++++++
 testsuite/synth/issue33/int_test2.vhdl | 31 +++++++++++++++++++++++++++++++
 testsuite/synth/issue33/testsuite.sh   | 11 +++++++++++
 3 files changed, 73 insertions(+)
 create mode 100644 testsuite/synth/issue33/int_test.vhdl
 create mode 100644 testsuite/synth/issue33/int_test2.vhdl
 create mode 100755 testsuite/synth/issue33/testsuite.sh

diff --git a/testsuite/synth/issue33/int_test.vhdl b/testsuite/synth/issue33/int_test.vhdl
new file mode 100644
index 000000000..62ea65bda
--- /dev/null
+++ b/testsuite/synth/issue33/int_test.vhdl
@@ -0,0 +1,31 @@
+library ieee;
+  use ieee.std_logic_1164.all;
+
+entity int_test is
+  generic (
+    INT_MIN : integer range 1 to 8 := 1;
+    INT_MAX : integer range 1 to 8 := 8
+  );
+  port (
+    clk : in std_logic;
+    a : in integer range INT_MIN to INT_MAX;
+    b : out integer range INT_MIN to INT_MAX
+  );
+end int_test;
+
+architecture rtl of int_test is
+  signal int : integer range INT_MIN to INT_MAX;
+begin
+  process (clk)
+  begin
+    if rising_edge (clk) then
+      if a < INT_MAX then
+        int <= a + 1;
+      else
+        int <= INT_MIN;
+      end if;
+    end if;
+  end process;
+  b <= int;
+end rtl;
+
diff --git a/testsuite/synth/issue33/int_test2.vhdl b/testsuite/synth/issue33/int_test2.vhdl
new file mode 100644
index 000000000..eb43306c4
--- /dev/null
+++ b/testsuite/synth/issue33/int_test2.vhdl
@@ -0,0 +1,31 @@
+library ieee;
+  use ieee.std_logic_1164.all;
+
+entity int_test2 is
+  generic (
+    INT_MIN : integer range 1 to 8 := 1;
+    INT_MAX : integer range 1 to 8 := 8
+  );
+  port (
+    clk : in std_logic;
+    a : in integer range INT_MIN to INT_MAX;
+    b : out integer range INT_MIN to INT_MAX
+  );
+end int_test2;
+
+architecture rtl of int_test2 is
+  signal int : integer range INT_MIN to INT_MAX;
+begin
+  process (clk)
+  begin
+    if rising_edge (clk) then
+      if a < INT_MAX then
+        int <= a + 1;
+      else
+        int <= INT_MIN * 2;
+      end if;
+    end if;
+  end process;
+  b <= int;
+end rtl;
+
diff --git a/testsuite/synth/issue33/testsuite.sh b/testsuite/synth/issue33/testsuite.sh
new file mode 100755
index 000000000..fca6f7d69
--- /dev/null
+++ b/testsuite/synth/issue33/testsuite.sh
@@ -0,0 +1,11 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+for t in int_test int_test2; do
+    synth $t.vhdl -e $t > syn_$t.vhdl
+    analyze syn_$t.vhdl
+    clean
+done
+
+echo "Test successful"
-- 
cgit v1.2.3