testsuite/gna/bug069/bug7.vhdl


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

entity bug7 is
end entity bug7;

architecture x of bug7 is

  constant cst : real := 5.5;
  signal test : integer;

begin

  test <= cst;

end architecture x;