testsuite/gna/issue623/crash.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

entity crash_entity is end entity;

architecture default of crash_entity is
	type foo_t is record
		a, b : bit;
	end record;

	function func return bit is
		variable v : foo_t(0 to 1);
	begin
		return '1';
	end function;
begin
end architecture;