testsuite/gna/issue254/e.vhdl


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

entity e is
end entity;

architecture a of e is
begin
  process
    type LongInteger is range -2**47 to 2**47-1;
    variable v : LongInteger;
  begin
    v := 12345678901;
    report "v = " & LongInteger'image(v) severity note;
    -- report "v = " & to_string(v) severity note;                    -- works
    -- report "v = " & to_string(LongInteger'pos(v)) severity note;   -- works
    wait;
  end process;
end architecture;