diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-25 18:41:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-25 18:41:05 +0200 |
commit | 71bafde697314d92bf73f9bccc14e49550260bf1 (patch) | |
tree | e7bc7077bc984163f76d1bc734822cc7322e9d32 /testsuite/gna/issue1381/repro3.vhdl | |
parent | e49f709cab51d8f1d0b4a11f93ed383dce8392ec (diff) | |
download | ghdl-71bafde697314d92bf73f9bccc14e49550260bf1.tar.gz ghdl-71bafde697314d92bf73f9bccc14e49550260bf1.tar.bz2 ghdl-71bafde697314d92bf73f9bccc14e49550260bf1.zip |
testsuite/gna: add tests for #1381
Diffstat (limited to 'testsuite/gna/issue1381/repro3.vhdl')
-rw-r--r-- | testsuite/gna/issue1381/repro3.vhdl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/gna/issue1381/repro3.vhdl b/testsuite/gna/issue1381/repro3.vhdl new file mode 100644 index 000000000..4ff3449ff --- /dev/null +++ b/testsuite/gna/issue1381/repro3.vhdl @@ -0,0 +1,14 @@ +entity repro3 is + port (n : out natural); +end; + +architecture behav of repro3 is + impure function f(a : bit_vector) return bit_vector + is + subtype st is natural range 1 to n; + begin + return a; + end f; +begin + assert f("01") = "01"; +end behav; |