testsuite/gna/issue2209/e.vhdl


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

entity e is end;
architecture a of e is
    --crash
    procedure p(arg : string(1 to (1)));
    procedure p(arg : string(1 to (1))) is begin end;

    --no crash
    --procedure p(arg : string(1 to 1));
    --procedure p(arg : string(1 to 1)) is begin end;
begin
    assert false severity failure;
end;