diff options
Diffstat (limited to 'testsuite/gna/bug017/call6.vhdl')
-rw-r--r-- | testsuite/gna/bug017/call6.vhdl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/gna/bug017/call6.vhdl b/testsuite/gna/bug017/call6.vhdl new file mode 100644 index 000000000..c52b08b6e --- /dev/null +++ b/testsuite/gna/bug017/call6.vhdl @@ -0,0 +1,21 @@ +entity call6 is +end; + +architecture behav of call6 is + procedure check (s : string) is + begin + wait for 1 ns; + assert s (2) = 'a'; + end; +begin + process + variable v : integer := 2; + begin + check ("bac"); + wait for 2 ns; + check ((1 => 'e', 2 => 'a', 3 => 'c')); + report "SUCCESS"; + wait; + end process; + +end behav; |