diff options
Diffstat (limited to 'testsuite/gna/issue2166/taggr2.vhdl')
-rw-r--r-- | testsuite/gna/issue2166/taggr2.vhdl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/gna/issue2166/taggr2.vhdl b/testsuite/gna/issue2166/taggr2.vhdl new file mode 100644 index 000000000..721f57628 --- /dev/null +++ b/testsuite/gna/issue2166/taggr2.vhdl @@ -0,0 +1,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; |