testsuite/gna/bug085/foo.vhdl


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

entity foo is
end entity;

architecture fum of foo is
begin
   process
   begin
       report "integer'high = " & integer'image(integer'high);
       report "16#1FFFFFFFF# = " 
            & integer'image(16#1FFFFFFFF#);
       wait;
   end process;
end architecture;