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;