diff options
| -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" |