From d46e4f35422e107db1edfbcc97e3624fc3965b7f Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 26 Sep 2015 05:55:02 +0200
Subject: ticket94 reproducer

---
 testsuite/gna/ticket94/testsuite.sh | 45 +++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100755 testsuite/gna/ticket94/testsuite.sh

(limited to 'testsuite/gna/ticket94/testsuite.sh')

diff --git a/testsuite/gna/ticket94/testsuite.sh b/testsuite/gna/ticket94/testsuite.sh
new file mode 100755
index 0000000..796dd69
--- /dev/null
+++ b/testsuite/gna/ticket94/testsuite.sh
@@ -0,0 +1,45 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+# Original test
+analyze --work=alib asrc.vhd
+analyze tb.vhd
+elab_simulate tb
+
+# Reproducer - entity would be visible in the absence of the component
+analyze tb1.vhd
+elab_simulate tb1
+
+# Reproducer - entity is directly visible
+analyze --work=alib apkg.vhd
+analyze tb2.vhd
+elab_simulate tb2
+
+# Reproducer - entity is in the same library. (93c)
+analyze tb3.vhd
+elab_simulate tb3
+
+# Reproducer - entity in a different library, not visible.
+analyze tb4.vhd
+elab_simulate_failure tb4
+elab_simulate --syn-binding tb4
+
+clean
+clean alib
+
+# Reproducer - entity is in the same library (93)
+GHDL_STD_FLAGS=--std=93
+
+analyze --work=alib asrc.vhd
+analyze --work=alib apkg.vhd
+analyze tb3.vhd
+elab_simulate_failure tb3
+
+# But still works with --syn-binding
+elab_simulate --syn-binding tb3
+
+clean
+clean alib
+
+echo "Test successful"
-- 
cgit