testsuite/gna/issue2152/e2.vhdl


1
2
3
4
5
6
7
8
9
10
11
12

entity e2 is end;

architecture a of e2 is
  type line is access string;
begin
    process
        variable q : line(1 to 10);
    begin
      q := new string(1 to 10);
        wait;
    end process;
end;