diff options
Diffstat (limited to 'testsuite/gna/issue797/repro.vhdl')
-rw-r--r-- | testsuite/gna/issue797/repro.vhdl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/gna/issue797/repro.vhdl b/testsuite/gna/issue797/repro.vhdl new file mode 100644 index 000000000..f426ac1d0 --- /dev/null +++ b/testsuite/gna/issue797/repro.vhdl @@ -0,0 +1,21 @@ +entity repro is +end; + +architecture behav of repro is + type byte_vector_access_t is access string; + + procedure set(index : natural; c : character) is + variable v : byte_vector_access_t(1 to integer'high); + begin + v(index+1) := c; + end; +begin + process + begin + if now > 1 ns then + set (1, 'a'); + end if; + wait; + end process; +end behav; + |