testsuite/gna/issue394/bug.vhdl


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

use std.textio.all;

entity bug is
end entity;

architecture a of bug is
begin
  main : process
    procedure echo(msg : string) is
      variable l : line;
    begin
      write(l, msg);
      writeline(OUTPUT, l);
    end;

  begin
    echo("1");
    report "2";
    echo("3");
    report "4";
    wait;
  end process;
end;