diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-08-06 07:16:48 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-08-07 06:27:17 +0200 |
commit | b47d09862f3c05e8827ac5a39880a5303f3ba767 (patch) | |
tree | 225a1866dd06982ccbe3983ee14b0827eff76012 /testsuite/gna/issue616/repro1.vhdl | |
parent | 63906cb162a5ee5c7284b4598ffb062e9a6541bb (diff) | |
download | ghdl-b47d09862f3c05e8827ac5a39880a5303f3ba767.tar.gz ghdl-b47d09862f3c05e8827ac5a39880a5303f3ba767.tar.bz2 ghdl-b47d09862f3c05e8827ac5a39880a5303f3ba767.zip |
Add testcase for #616
Diffstat (limited to 'testsuite/gna/issue616/repro1.vhdl')
-rw-r--r-- | testsuite/gna/issue616/repro1.vhdl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/gna/issue616/repro1.vhdl b/testsuite/gna/issue616/repro1.vhdl new file mode 100644 index 000000000..9df4513ff --- /dev/null +++ b/testsuite/gna/issue616/repro1.vhdl @@ -0,0 +1,16 @@ +package repro1 is + function return_true return boolean; +end repro1; + +package body repro1 is + function slv_ones(constant width : in integer) return bit_vector is + begin + return (1 to width => '1'); + end function; + + function return_true return boolean is + constant ones_c : bit_vector(31 downto 0) := (others => '1'); + begin + return ones_c = slv_ones(32); + end function; +end repro1; |