diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-05-25 08:05:02 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-05-25 08:05:02 +0200 |
commit | 48695e579a7746fe52eda777b14ec10d918e7e4b (patch) | |
tree | 9a636be85d979c697ce3ca3823414464cea3b555 /testsuite/gna/issue1772/repro2.vhdl | |
parent | e9352e8ec0caaddd97d747ee1ca72cefc56edbde (diff) | |
download | ghdl-48695e579a7746fe52eda777b14ec10d918e7e4b.tar.gz ghdl-48695e579a7746fe52eda777b14ec10d918e7e4b.tar.bz2 ghdl-48695e579a7746fe52eda777b14ec10d918e7e4b.zip |
testsuite/gna: add tests for #1772
Diffstat (limited to 'testsuite/gna/issue1772/repro2.vhdl')
-rw-r--r-- | testsuite/gna/issue1772/repro2.vhdl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/gna/issue1772/repro2.vhdl b/testsuite/gna/issue1772/repro2.vhdl new file mode 100644 index 000000000..07c28646f --- /dev/null +++ b/testsuite/gna/issue1772/repro2.vhdl @@ -0,0 +1,26 @@ +entity repro2 is +end; + +architecture behav of repro2 is + type arr_el_t is array(0 to 1) of string (1 to 4); + type arr_t is array(integer range <>) of arr_el_t; + + constant cst : arr_t := (1 => ("abcd", "efgh"), + 2 => ("ijkl", "mnop")); +begin + process + begin + for k in arr_el_t'range loop + null; + end loop; + + for i in cst'range loop + report "cst(" & to_string(i) & "):"; + for j in cst'element'range loop + report cst(i)(j); + end loop; + end loop; + wait; + end process; +end behav; + |