diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-02 09:44:36 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-02 09:44:36 +0200 |
| commit | 101d88efa3b5fa6ec5b1e647cdf49650ebb606f1 (patch) | |
| tree | 58651898be00ebdf170cfa0523ac79de13bb80e9 /testsuite/gna/issue1274/repro4.vhdl | |
| parent | db7ef6818edba6f7210e2fd6761333cd1131b25e (diff) | |
| download | ghdl-101d88efa3b5fa6ec5b1e647cdf49650ebb606f1.tar.gz ghdl-101d88efa3b5fa6ec5b1e647cdf49650ebb606f1.tar.bz2 ghdl-101d88efa3b5fa6ec5b1e647cdf49650ebb606f1.zip | |
testsuite/gna: add tests for #1274
Diffstat (limited to 'testsuite/gna/issue1274/repro4.vhdl')
| -rw-r--r-- | testsuite/gna/issue1274/repro4.vhdl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/testsuite/gna/issue1274/repro4.vhdl b/testsuite/gna/issue1274/repro4.vhdl new file mode 100644 index 000000000..2fbe2cd16 --- /dev/null +++ b/testsuite/gna/issue1274/repro4.vhdl @@ -0,0 +1,29 @@ +library ieee; +use ieee.std_logic_1164.all; +use ieee.numeric_std.all; + +entity repro4 is +end ; + +architecture beh of repro4 is + type str_acc is access string; + type bv_acc is access bit_Vector; + + function f return str_acc is + begin + return new String'("abc"); + end f; + + function f return bv_acc is + begin + return new bit_vector'("001"); + end f; + +begin + process + variable foo, bar : std_logic; + begin + f.all := "010"; + wait; + end process; +end architecture; |