From a779d6b3b5f10cbee6690ae4ff7aa43b65caf5e3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 2 Sep 2015 18:21:33 +0200
Subject: Add bug017.

---
 testsuite/gna/bug017/loop2.vhdl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 testsuite/gna/bug017/loop2.vhdl

(limited to 'testsuite/gna/bug017/loop2.vhdl')

diff --git a/testsuite/gna/bug017/loop2.vhdl b/testsuite/gna/bug017/loop2.vhdl
new file mode 100644
index 000000000..47a7da6b1
--- /dev/null
+++ b/testsuite/gna/bug017/loop2.vhdl
@@ -0,0 +1,20 @@
+entity loop2 is
+end;
+
+architecture behav of loop2 is
+begin
+  process
+    variable i : natural := 0;
+  begin
+    report "hello";
+    loop
+      exit when i = 10;
+      wait for 1 ns;
+      report "hello2";
+      i := i + 1;
+    end loop;
+    report "SUCCESS";
+    wait;
+  end process;
+ 
+end behav;
-- 
cgit v1.2.3