testsuite/gna/issue2166/taggr2.vhdl


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

entity taggr2 is
end;

architecture behav of taggr2 is
  procedure set (v : inout string; l, r : positive) is
  begin
    v (l to r) := (others => ' ');
  end set;
begin
  process
    variable s : string (1 to 8);
  begin
    s(1) := 'A';
    s(8) := 'Z';
    set (s, 2, 7);
    report s;
    wait;
  end process;
end;