From b195da2af5c575b246e73753dd2c0cab5b1f995c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 10 Sep 2015 20:36:32 +0200
Subject: Add testcase for ticket93.

---
 testsuite/gna/ticket93/test.vhd     | 15 +++++++++++++++
 testsuite/gna/ticket93/testsuite.sh |  9 +++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 testsuite/gna/ticket93/test.vhd
 create mode 100755 testsuite/gna/ticket93/testsuite.sh

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