diff options
Diffstat (limited to 'testsuite/gna/ticket63')
| -rw-r--r-- | testsuite/gna/ticket63/bug.vhdl | 14 | ||||
| -rwxr-xr-x | testsuite/gna/ticket63/testsuite.sh | 8 |
2 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/gna/ticket63/bug.vhdl b/testsuite/gna/ticket63/bug.vhdl new file mode 100644 index 0000000..4c32a5b --- /dev/null +++ b/testsuite/gna/ticket63/bug.vhdl @@ -0,0 +1,14 @@ +entity ent is +end entity; + +architecture a of ent is +begin + main : process is + constant str : string(1 to 3) := "abc"; + type line is access string; + variable l : line; + begin + l := new str(1 to 2); -- Crashes + l := new string'(str(1 to 2)); -- Works + end process; +end architecture; diff --git a/testsuite/gna/ticket63/testsuite.sh b/testsuite/gna/ticket63/testsuite.sh new file mode 100755 index 0000000..e2d8f1e --- /dev/null +++ b/testsuite/gna/ticket63/testsuite.sh @@ -0,0 +1,8 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze_failure bug.vhdl +clean + +echo "Test successful" |