From e3945ec7d3a10888c42505343600e946cf960da2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 20 Jun 2019 19:01:49 +0200 Subject: Add a test for previous commit. --- testsuite/gna/bug0100/testsuite.sh | 1 + testsuite/gna/bug0100/usrattr.vhdl | 12 ++++++++++++ 2 files changed, 13 insertions(+) create mode 100644 testsuite/gna/bug0100/usrattr.vhdl (limited to 'testsuite/gna/bug0100') diff --git a/testsuite/gna/bug0100/testsuite.sh b/testsuite/gna/bug0100/testsuite.sh index 5284a603d..e7b494240 100755 --- a/testsuite/gna/bug0100/testsuite.sh +++ b/testsuite/gna/bug0100/testsuite.sh @@ -9,6 +9,7 @@ analyze_failure --force-analysis nochoice1.vhdl analyze_failure --force-analysis nochoice2.vhdl analyze_failure --force-analysis choicelen.vhdl analyze_failure --force-analysis noexpr.vhdl +analyze_failure usrattr.vhdl if analyze_failure --force-analysis notype1.vhdl 2>&1 | grep -q "indexed name"; then : diff --git a/testsuite/gna/bug0100/usrattr.vhdl b/testsuite/gna/bug0100/usrattr.vhdl new file mode 100644 index 000000000..ebac3461d --- /dev/null +++ b/testsuite/gna/bug0100/usrattr.vhdl @@ -0,0 +1,12 @@ +entity usrattr is +end usrattr; + +architecture behav of usrattr is + type rec is record + data : natural; + end record; + signal myrec : rec; + signal s : boolean; +begin + s <= myrec.data'attr; +end behav; -- cgit v1.2.3