testsuite/gna/issue2152/e1.vhdl


1
2
3
4
5
6
7
8
9
10
11

entity e1 is end;

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