diff options
author | Tristan Gingold | 2015-09-02 18:21:33 +0200 |
---|---|---|
committer | Tristan Gingold | 2015-09-02 18:21:33 +0200 |
commit | a779d6b3b5f10cbee6690ae4ff7aa43b65caf5e3 (patch) | |
tree | c850005a41589ef82fc98abaac904c415acd9493 /testsuite/gna/bug017/loop1.vhdl | |
parent | 133686da496f0592da76a45361e70ac8d6c482ea (diff) | |
download | ghdl-a779d6b3b5f10cbee6690ae4ff7aa43b65caf5e3.tar.gz ghdl-a779d6b3b5f10cbee6690ae4ff7aa43b65caf5e3.tar.bz2 ghdl-a779d6b3b5f10cbee6690ae4ff7aa43b65caf5e3.zip |
Add bug017.
Diffstat (limited to 'testsuite/gna/bug017/loop1.vhdl')
-rw-r--r-- | testsuite/gna/bug017/loop1.vhdl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/gna/bug017/loop1.vhdl b/testsuite/gna/bug017/loop1.vhdl new file mode 100644 index 0000000..137628d --- /dev/null +++ b/testsuite/gna/bug017/loop1.vhdl @@ -0,0 +1,19 @@ +entity loop1 is +end; + +architecture behav of loop1 is +begin + process + variable i : natural := 0; + begin + report "hello"; + while i < 10 loop + wait for 1 ns; + report "hello2"; + i := i + 1; + end loop; + report "SUCCESS"; + wait; + end process; + +end behav; |