From 5f3b43dcd3a63638f81a897ace8efa7c9e57d6a3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 6 Aug 2018 07:52:39 +0200
Subject: Add testcase for #615

---
 testsuite/gna/issue615/repr.ghw     | Bin 0 -> 511 bytes
 testsuite/gna/issue615/repr.vhdl    |  17 +++++++++++++++++
 testsuite/gna/issue615/testsuite.sh |  16 ++++++++++++++++
 3 files changed, 33 insertions(+)
 create mode 100644 testsuite/gna/issue615/repr.ghw
 create mode 100644 testsuite/gna/issue615/repr.vhdl
 create mode 100755 testsuite/gna/issue615/testsuite.sh

diff --git a/testsuite/gna/issue615/repr.ghw b/testsuite/gna/issue615/repr.ghw
new file mode 100644
index 000000000..6756e01b9
Binary files /dev/null and b/testsuite/gna/issue615/repr.ghw differ
diff --git a/testsuite/gna/issue615/repr.vhdl b/testsuite/gna/issue615/repr.vhdl
new file mode 100644
index 000000000..ed8cf82d8
--- /dev/null
+++ b/testsuite/gna/issue615/repr.vhdl
@@ -0,0 +1,17 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity repr is
+end entity;
+
+architecture arch of repr is
+
+    constant CYCLE 	: time := 10 ns;
+
+    signal vec1 :  std_logic_vector(31 downto 0);
+    signal vec2 :  std_logic_vector(31 to 0);
+begin
+    vec1 <= (others => '0');
+    vec2 <= (others => '0');
+
+end arch;
diff --git a/testsuite/gna/issue615/testsuite.sh b/testsuite/gna/issue615/testsuite.sh
new file mode 100755
index 000000000..dfb9cc395
--- /dev/null
+++ b/testsuite/gna/issue615/testsuite.sh
@@ -0,0 +1,16 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+analyze repr.vhdl
+elab repr
+if ghdl_has_feature repr ghw; then
+  simulate repr --wave=repr.ghw
+# TODO: check with ghwdump ?
+fi
+ 
+
+clean
+
+echo "Test successful"
-- 
cgit v1.2.3