diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-20 19:01:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-20 19:01:49 +0200 |
commit | e3945ec7d3a10888c42505343600e946cf960da2 (patch) | |
tree | 1ae2505388b2f259040390da4171240485fe8d9e /testsuite/gna/bug0100 | |
parent | eb0740a71c837cf9280c193022dcc2ceeeb08f34 (diff) | |
download | ghdl-e3945ec7d3a10888c42505343600e946cf960da2.tar.gz ghdl-e3945ec7d3a10888c42505343600e946cf960da2.tar.bz2 ghdl-e3945ec7d3a10888c42505343600e946cf960da2.zip |
Add a test for previous commit.
Diffstat (limited to 'testsuite/gna/bug0100')
-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; |