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