Add testcase for issue69

3 files changed, 32 insertions, 0 deletions

diff --git a/testsuite/gna/issue69/mylib.vhdl b/testsuite/gna/issue69/mylib.vhdl
new file mode 100644
index 000000000..203eea145
--- /dev/null
+++ b/testsuite/gna/issue69/mylib.vhdl
@@ -0,0 +1,3 @@
+package mypkg is
+  constant msg : string := "Message from mylib.mypkg";
+end mypkg;
diff --git a/testsuite/gna/issue69/mytest.vhdl b/testsuite/gna/issue69/mytest.vhdl
new file mode 100644
index 000000000..6a53176b3
--- /dev/null
+++ b/testsuite/gna/issue69/mytest.vhdl
@@ -0,0 +1,14 @@
+entity mytest is
+end mytest;
+
+library mylib;
+use mylib.mypkg.all;
+
+architecture behav of mytest is
+begin
+  process
+  begin
+    report msg severity note;
+    wait;
+  end process;
+end behav;
diff --git a/testsuite/gna/issue69/testsuite.sh b/testsuite/gna/issue69/testsuite.sh
new file mode 100755
index 000000000..3debfd7ef
--- /dev/null
+++ b/testsuite/gna/issue69/testsuite.sh
@@ -0,0 +1,15 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+mkdir mylib
+mkdir mylib/v93
+
+analyze --workdir=mylib/v93 --work=mylib mylib.vhdl
+analyze mytest.vhdl 
+elab_simulate mytest
+
+clean
+rm -rf mylib
+
+echo "Test successful"