diff options
| -rw-r--r-- | testsuite/gna/issue1412/repro.vhdl | 17 | ||||
| -rwxr-xr-x | testsuite/gna/issue1412/testsuite.sh | 7 |
2 files changed, 24 insertions, 0 deletions
diff --git a/testsuite/gna/issue1412/repro.vhdl b/testsuite/gna/issue1412/repro.vhdl new file mode 100644 index 000000000..92e770622 --- /dev/null +++ b/testsuite/gna/issue1412/repro.vhdl @@ -0,0 +1,17 @@ +entity repro is +end; + +architecture behav of repro is + signal s : bit_vector(7 downto 0); +begin + process (s) + begin + for i in s'range loop + if s (i)'event then + report "event for s bit " & natural'image (i); + end if; + end loop; + end process; + + s <= x"42" after 1 ns, x"82" after 2 ns; +end behav; diff --git a/testsuite/gna/issue1412/testsuite.sh b/testsuite/gna/issue1412/testsuite.sh new file mode 100755 index 000000000..7986ee128 --- /dev/null +++ b/testsuite/gna/issue1412/testsuite.sh @@ -0,0 +1,7 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze_failure repro.vhdl + +echo "Test successful" |