testsuite/gna/bug08/paren3.vhdl


1
2
3
4
5
6
7
8
9
10

entity paren3 is
end paren3;

architecture behav of paren3
is
  subtype a is integer;
  constant b : real := 3.15;
begin
  assert a(b) = 3;
end behav;