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/repro.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/repro.vhdl')
-rw-r--r-- | testsuite/gna/issue616/repro.vhdl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/gna/issue616/repro.vhdl b/testsuite/gna/issue616/repro.vhdl new file mode 100644 index 000000000..1632bb056 --- /dev/null +++ b/testsuite/gna/issue616/repro.vhdl @@ -0,0 +1,16 @@ +package repro is + function return_true return boolean; +end repro; + +package body repro 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) := slv_ones(32); + begin + return true; + end function; +end repro; |