From bd4aff0f670351c0652cf24e9b04361dc0e3a01c Mon Sep 17 00:00:00 2001
From: Tristan Gingold
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 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 testsuite/gna/bug19195/pkg.vhd

(limited to 'testsuite/gna/bug19195/pkg.vhd')

diff --git a/testsuite/gna/bug19195/pkg.vhd b/testsuite/gna/bug19195/pkg.vhd
new file mode 100644
index 0000000..4418e90
--- /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; 
-- 
cgit