From 11f1ebbc80250555474cfe22e1db10553e112a11 Mon Sep 17 00:00:00 2001
From: Patrick Lehmann <Patrick.Lehmann@plc2.de>
Date: Wed, 23 Jun 2021 13:29:23 +0200
Subject: Handle 'Subtype_Definition' in record definitions.

---
 testsuite/pyunit/Current.vhdl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'testsuite/pyunit')

diff --git a/testsuite/pyunit/Current.vhdl b/testsuite/pyunit/Current.vhdl
index 874844590..ff03e1d04 100644
--- a/testsuite/pyunit/Current.vhdl
+++ b/testsuite/pyunit/Current.vhdl
@@ -21,6 +21,7 @@ end entity entity_1;
 architecture behav of entity_1 is
 	constant MAX : positive := -25;
 	signal rst : std_logic := foo('U');
+--	signal vec : bit_vector(pack.input'bar'range);
 
 	type newInt is range -4 to 3;
 	type newFp is range 4.3 downto -3.9;
@@ -28,6 +29,8 @@ architecture behav of entity_1 is
 	type rec is record
 		elem1 : bit;
 		elem2 : boolean;
+		elem3 : integer_vector(3 downto 0);
+		elem4 : natural range 7 to 8;
 	end record;
 	type enum is (e1, e2, e3);
 	type acc is access bar;
-- 
cgit v1.2.3