From bd4aff0f670351c0652cf24e9b04361dc0e3a01c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 18 Dec 2013 05:53:22 +0100
Subject: Add initial testsuite, using regression tests from bugs or support
 reported on gna.org

---
 testsuite/gna/bug19195/pkg.vhd      | 13 +++++++++++++
 testsuite/gna/bug19195/testsuite.sh | 11 +++++++++++
 testsuite/gna/bug19195/top.vhdl     |  7 +++++++
 3 files changed, 31 insertions(+)
 create mode 100644 testsuite/gna/bug19195/pkg.vhd
 create mode 100755 testsuite/gna/bug19195/testsuite.sh
 create mode 100644 testsuite/gna/bug19195/top.vhdl

(limited to 'testsuite/gna/bug19195')

diff --git a/testsuite/gna/bug19195/pkg.vhd b/testsuite/gna/bug19195/pkg.vhd
new file mode 100644
index 000000000..4418e90dc
--- /dev/null
+++ b/testsuite/gna/bug19195/pkg.vhd
@@ -0,0 +1,13 @@
+library IEEE; 
+use IEEE.std_logic_1164.all; 
+package test_pkg is 
+  type a is record 
+    b : std_logic_vector(3 downto 0); 
+  end record a; 
+  type b is record 
+    a1 : a; 
+  end record b; 
+
+  signal c : b; 
+  alias c0 : a is c.a1; 
+end package test_pkg; 
diff --git a/testsuite/gna/bug19195/testsuite.sh b/testsuite/gna/bug19195/testsuite.sh
new file mode 100755
index 000000000..b5b0b3c35
--- /dev/null
+++ b/testsuite/gna/bug19195/testsuite.sh
@@ -0,0 +1,11 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze pkg.vhd
+analyze top.vhdl
+elab_simulate top
+
+clean
+
+echo "Test successful"
diff --git a/testsuite/gna/bug19195/top.vhdl b/testsuite/gna/bug19195/top.vhdl
new file mode 100644
index 000000000..fb1f4c702
--- /dev/null
+++ b/testsuite/gna/bug19195/top.vhdl
@@ -0,0 +1,7 @@
+entity top is
+end top;
+
+use work.test_pkg;
+architecture behav of top is
+begin
+end behav;
-- 
cgit v1.2.3