testsuite/gna/bug0100/attr3.vhdl


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

entity attr3 is
end attr3;

use std.textio.all;

architecture behav of attr3 is
  signal s : bit;
begin
  process
    variable l : line;
  begin
    wait until s = '1';
    'event;

    if s = '0' then
      write(l, s);
    else
      write(l, string'("hello"));
      write(l, s);
    end if;
  end process;
end behav;