diff options
-rw-r--r-- | testsuite/gna/issue1771/tf.vhdl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/gna/issue1771/tf.vhdl b/testsuite/gna/issue1771/tf.vhdl index 77039f15e..decc39a41 100644 --- a/testsuite/gna/issue1771/tf.vhdl +++ b/testsuite/gna/issue1771/tf.vhdl @@ -26,6 +26,13 @@ begin wait for 1 ns; assert z = eres; report to_bstring(z); + + x := b"1101"; + y := b"0111_000"; + ci := '1'; + add_carry (L => x, R => y, c_in => ci, result => z, c_out => co); + wait for 1 ns; + report "res=" & to_bstring(z) & ", co=" & to_string(co); wait; end process tt; end architecture testbench; |