aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue1704/repro2.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/issue1704/repro2.vhdl')
-rw-r--r--testsuite/gna/issue1704/repro2.vhdl21
1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/gna/issue1704/repro2.vhdl b/testsuite/gna/issue1704/repro2.vhdl
new file mode 100644
index 000000000..07ea0873b
--- /dev/null
+++ b/testsuite/gna/issue1704/repro2.vhdl
@@ -0,0 +1,21 @@
+entity repro2 is
+ generic (
+ word_len : natural := 20);
+end;
+
+architecture behav of repro2 is
+ subtype word is bit_vector(word_len - 1 downto 0);
+
+ function F return word is
+ begin
+ return ("1010","101010101010", others => '0');
+ end function;
+begin
+ assert f = b"1010_101010101010_0000" severity failure;
+ process
+ begin
+ report to_string(f);
+ wait;
+ end process;
+end;
+