2 files changed, 24 insertions, 0 deletions
diff --git a/testsuite/gna/ticket93/test.vhd b/testsuite/gna/ticket93/test.vhd
new file mode 100644
index 000000000..5092254f5
--- /dev/null
+++ b/testsuite/gna/ticket93/test.vhd
@@ -0,0 +1,15 @@
+entity test is
+end entity test;
+
+entity internal is
+end entity internal;
+architecture arch of internal is begin
+end architecture arch;
+
+architecture first of test is begin
+  test_instantiation : entity work.internal;
+end architecture first;
+
+architecture second of test is begin
+end architecture second;
+
diff --git a/testsuite/gna/ticket93/testsuite.sh b/testsuite/gna/ticket93/testsuite.sh
new file mode 100755
index 000000000..1bfd7e8fd
--- /dev/null
+++ b/testsuite/gna/ticket93/testsuite.sh
@@ -0,0 +1,9 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze test.vhd
+elab_simulate test
+clean
+
+echo "Test successful"