diff options
| -rw-r--r-- | testsuite/gna/issue10/test_attr.vhdl | 20 | ||||
| -rwxr-xr-x | testsuite/gna/issue10/testsuite.sh | 7 |
2 files changed, 26 insertions, 1 deletions
diff --git a/testsuite/gna/issue10/test_attr.vhdl b/testsuite/gna/issue10/test_attr.vhdl new file mode 100644 index 0000000..e334032 --- /dev/null +++ b/testsuite/gna/issue10/test_attr.vhdl @@ -0,0 +1,20 @@ +entity test_attr is +end entity; + +architecture rtl of test_attr is + type T_TUPLE is record + A : NATURAL; + B : NATURAL; + end record; + type T_VECTOR is array (NATURAL range <>) of T_TUPLE; + + attribute attr : t_vector; + attribute attr of t_tuple : type is ((8, 32), (8, 20), (8, 36)); +begin + genTests : for i in t_tuple'attr'range generate + constant LOCAL_A : NATURAL := t_tuple'attr(i).A; + constant LOCAL_B : NATURAL := t_tuple'attr(i).B; + begin + -- my tests + end generate; +end architecture; diff --git a/testsuite/gna/issue10/testsuite.sh b/testsuite/gna/issue10/testsuite.sh index e40366d..cdac789 100755 --- a/testsuite/gna/issue10/testsuite.sh +++ b/testsuite/gna/issue10/testsuite.sh @@ -2,8 +2,13 @@ . ../../testenv.sh -analyze_failure --std=93 test_id.vhdl +analyze --std=93 test_id.vhdl +elab_simulate --std=93 test_id analyze test_id.vhdl +elab_simulate test_id + +analyze test_attr.vhdl +elab_simulate test_attr clean |