summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug20255/test.vhd
blob: 52b72ff457c7cd2ff5222acabe3e3860e9dca22c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
entity e is
end entity e;
architecture test of e is
begin                               
	test : process is
	
	type frequency is range -2147483647 to 2147483647 units KHz;
		MHz = 1000 KHz;
		GHz = 1000 MHz;
	end units;
	begin
		assert frequency'image(2 MHz) =  "2000 khz";  -- this should work, but GHDL produces an error
		wait;
	end process;

end architecture test;