testsuite/gna/issue15/to_slv_issue.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

library ieee ; 
use ieee.numeric_std_unsigned.to_slv ; 
use ieee.std_logic_1164.all ; 
use std.textio.all ; 

entity to_slv_issue is
end entity to_slv_issue ;
architecture doit of to_slv_issue is
begin
  process 
    variable buf : line ; 
  begin
    for i in 9 to 17 loop 
      hwrite(buf, to_slv(i,8)) ;
      writeline(OUTPUT, buf) ; 
    end loop ;
    wait ; 
  end process ;
end architecture doit ;