diff options
-rwxr-xr-x | testsuite/gna/bug0100/testsuite.sh | 1 | ||||
-rw-r--r-- | testsuite/gna/bug0100/usrattr.vhdl | 12 |
2 files changed, 13 insertions, 0 deletions
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; |