testsuite/gna/issue621/ent2.vhdl


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

entity crash_entity is end entity;
architecture default of crash_entity is
        type rec is record
          v : natural;
        end record;
	attribute s : rec;
	function func return boolean is
	begin
		return s.v = 0;
	end function;
begin
end architecture;