From e365367b3670710254a7f86db52d3cecc236e764 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 13 Feb 2020 18:18:26 +0100
Subject: testsuite/gna: add a test for previous commit.

---
 testsuite/gna/bug0100/qual.vhdl    | 11 +++++++++++
 testsuite/gna/bug0100/testsuite.sh |  1 +
 2 files changed, 12 insertions(+)
 create mode 100644 testsuite/gna/bug0100/qual.vhdl

(limited to 'testsuite/gna')

diff --git a/testsuite/gna/bug0100/qual.vhdl b/testsuite/gna/bug0100/qual.vhdl
new file mode 100644
index 000000000..f7c0ba0b3
--- /dev/null
+++ b/testsuite/gna/bug0100/qual.vhdl
@@ -0,0 +1,11 @@
+entity qual is
+end;
+
+architecture behav of qual is
+begin
+  process
+    variable cnt : natural range 0 to 15;
+  begin
+    cnt := cnt'last'(others => '1');
+  end process;
+end behav;
diff --git a/testsuite/gna/bug0100/testsuite.sh b/testsuite/gna/bug0100/testsuite.sh
index fc50f76ad..b779aa7ea 100755
--- a/testsuite/gna/bug0100/testsuite.sh
+++ b/testsuite/gna/bug0100/testsuite.sh
@@ -15,6 +15,7 @@ analyze_failure --force-analysis emptyquote2.vhdl
 analyze_failure usrattr.vhdl
 analyze_failure forloop.vhdl 
 analyze_failure emptyquote.vhdl
+analyze_failure qual.vhdl
 
 if analyze_failure --force-analysis notype1.vhdl 2>&1 | grep -q "indexed name"; then
   :
-- 
cgit v1.2.3