diff options
| -rw-r--r-- | testsuite/gna/issue10/test_id.vhdl | 19 | ||||
| -rwxr-xr-x | testsuite/gna/issue10/testsuite.sh | 10 |
2 files changed, 29 insertions, 0 deletions
diff --git a/testsuite/gna/issue10/test_id.vhdl b/testsuite/gna/issue10/test_id.vhdl new file mode 100644 index 0000000..954c639 --- /dev/null +++ b/testsuite/gna/issue10/test_id.vhdl @@ -0,0 +1,19 @@ +entity test_id is +end entity; + +architecture rtl of test_id is + type T_TUPLE is record + A : NATURAL; + B : NATURAL; + end record; + type T_VECTOR is array (NATURAL range <>) of T_TUPLE; + + constant LIST : T_VECTOR := ((8, 32), (8, 20), (8, 36)); +begin + genTests : for i in LIST'range generate + constant LOCAL_A : NATURAL := LIST(i).A; + constant LOCAL_B : NATURAL := LIST(i).B; + begin + -- my tests + end generate; +end architecture; diff --git a/testsuite/gna/issue10/testsuite.sh b/testsuite/gna/issue10/testsuite.sh new file mode 100755 index 0000000..e40366d --- /dev/null +++ b/testsuite/gna/issue10/testsuite.sh @@ -0,0 +1,10 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze_failure --std=93 test_id.vhdl +analyze test_id.vhdl + +clean + +echo "Test successful" |