3 files changed, 40 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;
diff --git a/testsuite/gna/issue394/out.ref b/testsuite/gna/issue394/out.ref
new file mode 100644
index 000000000..1f8a041bb
--- /dev/null
+++ b/testsuite/gna/issue394/out.ref
@@ -0,0 +1,5 @@
+elaborate and simulate bug
+1
+bug.vhdl:18:5:@0ms:(report note): 2
+3
+bug.vhdl:20:5:@0ms:(report note): 4
diff --git a/testsuite/gna/issue394/testsuite.sh b/testsuite/gna/issue394/testsuite.sh
new file mode 100755
index 000000000..951682623
--- /dev/null
+++ b/testsuite/gna/issue394/testsuite.sh
@@ -0,0 +1,12 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze bug.vhdl
+elab_simulate bug > out.txt 2> err.txt
+cmp out.txt out.ref
+
+rm -f out.txt err.txt
+clean
+
+echo "Test successful"