diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-07-07 21:37:51 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-07-08 13:40:09 +0200 |
commit | 18116ef10e66015fa9445fcb072441d035a282b9 (patch) | |
tree | f6ff21f189b97764913186a5fd7a4250feefc375 | |
parent | 714dd8242d80bfdc2decada72aef1b10827d9876 (diff) | |
download | ghdl-18116ef10e66015fa9445fcb072441d035a282b9.tar.gz ghdl-18116ef10e66015fa9445fcb072441d035a282b9.tar.bz2 ghdl-18116ef10e66015fa9445fcb072441d035a282b9.zip |
Add reproducer for #621
-rw-r--r-- | testsuite/gna/issue621/ent.vhdl | 9 | ||||
-rw-r--r-- | testsuite/gna/issue621/ent2.vhdl | 12 | ||||
-rwxr-xr-x | testsuite/gna/issue621/testsuite.sh | 10 |
3 files changed, 31 insertions, 0 deletions
diff --git a/testsuite/gna/issue621/ent.vhdl b/testsuite/gna/issue621/ent.vhdl new file mode 100644 index 000000000..47f7faa89 --- /dev/null +++ b/testsuite/gna/issue621/ent.vhdl @@ -0,0 +1,9 @@ +entity crash_entity is end entity; +architecture default of crash_entity is + attribute s : string; + function func return boolean is + begin + return s(1); + end function; +begin +end architecture; diff --git a/testsuite/gna/issue621/ent2.vhdl b/testsuite/gna/issue621/ent2.vhdl new file mode 100644 index 000000000..277770bdc --- /dev/null +++ b/testsuite/gna/issue621/ent2.vhdl @@ -0,0 +1,12 @@ +entity crash_entity is end entity; +architecture default of crash_entity is + type rec is record + v : natural; + end record; + attribute s : rec; + function func return boolean is + begin + return s.v = 0; + end function; +begin +end architecture; diff --git a/testsuite/gna/issue621/testsuite.sh b/testsuite/gna/issue621/testsuite.sh new file mode 100755 index 000000000..152b57190 --- /dev/null +++ b/testsuite/gna/issue621/testsuite.sh @@ -0,0 +1,10 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze_failure ent.vhdl +analyze_failure ent2.vhdl + +clean + +echo "Test successful" |