From d91eff08229e768b044a0cfbd171a7293641a8b9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 30 Aug 2017 05:36:38 +0200
Subject: Add reproducer for #394

---
 testsuite/gna/issue394/bug.vhdl     | 23 +++++++++++++++++++++++
 testsuite/gna/issue394/out.ref      |  5 +++++
 testsuite/gna/issue394/testsuite.sh | 12 ++++++++++++
 3 files changed, 40 insertions(+)
 create mode 100644 testsuite/gna/issue394/bug.vhdl
 create mode 100644 testsuite/gna/issue394/out.ref
 create mode 100755 testsuite/gna/issue394/testsuite.sh

(limited to 'testsuite/gna')

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"
-- 
cgit v1.2.3