testsuite/gna/bug096/reader.vhdl


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

entity reader is
end reader;

use std.textio.all;

architecture behav of reader is
begin
  process
    file f : text is in "input.txt";
    variable l : line;
  begin
    for i in 1 to 5 loop
       readline (f, l);
    end loop;
    wait;
  end process;
end behav;