diff options
Diffstat (limited to 'testsuite/gna/issue394/bug.vhdl')
-rw-r--r-- | testsuite/gna/issue394/bug.vhdl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/gna/issue394/bug.vhdl b/testsuite/gna/issue394/bug.vhdl new file mode 100644 index 000000000..c9a3bf7e3 --- /dev/null +++ b/testsuite/gna/issue394/bug.vhdl @@ -0,0 +1,23 @@ +use std.textio.all; + +entity bug is +end entity; + +architecture a of bug is +begin + main : process + procedure echo(msg : string) is + variable l : line; + begin + write(l, msg); + writeline(OUTPUT, l); + end; + + begin + echo("1"); + report "2"; + echo("3"); + report "4"; + wait; + end process; +end; |