From 5146525c6fb0c907c4030b1ba012203c8721c45f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 10 Jan 2016 12:38:09 +0100 Subject: Add attribute specification in issue10. --- testsuite/gna/issue10/test_attr.vhdl | 20 ++++++++++++++++++++ testsuite/gna/issue10/testsuite.sh | 7 ++++++- 2 files changed, 26 insertions(+), 1 deletion(-) create mode 100644 testsuite/gna/issue10/test_attr.vhdl (limited to 'testsuite/gna') diff --git a/testsuite/gna/issue10/test_attr.vhdl b/testsuite/gna/issue10/test_attr.vhdl new file mode 100644 index 000000000..e33403297 --- /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 e40366d6e..cdac78956 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 -- cgit v1.2.3