diff options
Diffstat (limited to 'testsuite/gna/issue2166/taggr.vhdl')
-rw-r--r-- | testsuite/gna/issue2166/taggr.vhdl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/gna/issue2166/taggr.vhdl b/testsuite/gna/issue2166/taggr.vhdl new file mode 100644 index 000000000..478602ca7 --- /dev/null +++ b/testsuite/gna/issue2166/taggr.vhdl @@ -0,0 +1,17 @@ +entity taggr is +end; + +architecture behav of taggr is + procedure set (v : out string) is + begin + v := (others => ' '); + end set; +begin + process + variable s : string (1 to 8); + begin + set (s); + report '<' & s & '>'; + wait; + end process; +end; |