diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-10-18 07:48:33 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-10-18 07:55:02 +0200 |
commit | 260be4a7519dd69c508dd1d013f07269921dad7f (patch) | |
tree | b8d92ae6fb008fb325ee67736211c98eac028e5a /testsuite/synth/oper02/uns02.vhdl | |
parent | 7e36182602ff1a2c43723240860029ad8ae007b5 (diff) | |
download | ghdl-260be4a7519dd69c508dd1d013f07269921dad7f.tar.gz ghdl-260be4a7519dd69c508dd1d013f07269921dad7f.tar.bz2 ghdl-260be4a7519dd69c508dd1d013f07269921dad7f.zip |
testsuite/synth: add a test for #1896
Diffstat (limited to 'testsuite/synth/oper02/uns02.vhdl')
-rw-r--r-- | testsuite/synth/oper02/uns02.vhdl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/synth/oper02/uns02.vhdl b/testsuite/synth/oper02/uns02.vhdl new file mode 100644 index 000000000..e03ffc6f7 --- /dev/null +++ b/testsuite/synth/oper02/uns02.vhdl @@ -0,0 +1,23 @@ +entity uns02 is + port (ok : out boolean); +end uns02; + +library ieee; +use ieee.std_logic_1164.all; +use ieee.numeric_std.all; + +architecture behav of uns02 is + -- add uns uns + constant a : unsigned (7 downto 0) := x"1e"; + constant b : unsigned (3 downto 0) := x"2"; + constant r1 : unsigned (7 downto 0) := a - b; + signal er1 : unsigned (7 downto 0); + signal ok1 : boolean; + constant cok1 : boolean := and(a) = '0'; + constant cok2 : boolean := or(a) = '1'; +begin + assert cok1 and cok2 severity failure; + er1 <= x"1c"; + ok1 <= and(er1) = '0'; + ok <= ok1; +end behav; |