diff options
| author | Tristan Gingold <tgingold@free.fr> | 2013-12-18 05:53:22 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2013-12-18 05:53:22 +0100 |
| commit | bd4aff0f670351c0652cf24e9b04361dc0e3a01c (patch) | |
| tree | afcc1050ac74fc64b5756e2550bc32ea61d1e7bb /testsuite/gna/bug18360 | |
| parent | 5fde24d46fae799e6c0723850097a8fccd64d747 (diff) | |
| download | ghdl-bd4aff0f670351c0652cf24e9b04361dc0e3a01c.tar.gz ghdl-bd4aff0f670351c0652cf24e9b04361dc0e3a01c.tar.bz2 ghdl-bd4aff0f670351c0652cf24e9b04361dc0e3a01c.zip | |
Add initial testsuite, using regression tests from bugs or support
reported on gna.org
Diffstat (limited to 'testsuite/gna/bug18360')
| -rw-r--r-- | testsuite/gna/bug18360/testcase.vhdl | 8 | ||||
| -rwxr-xr-x | testsuite/gna/bug18360/testsuite.sh | 9 |
2 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/gna/bug18360/testcase.vhdl b/testsuite/gna/bug18360/testcase.vhdl new file mode 100644 index 000000000..2aabbed62 --- /dev/null +++ b/testsuite/gna/bug18360/testcase.vhdl @@ -0,0 +1,8 @@ +entity TESTCASE is +end entity TESTCASE; + +architecture PROBLEM of TESTCASE is + type ENUMERATION_TYPE is (VALUE1, VALUE2); + constant SOME_VAR : integer := ENUMERATION_TYPE'length; +begin +end architecture PROBLEM; diff --git a/testsuite/gna/bug18360/testsuite.sh b/testsuite/gna/bug18360/testsuite.sh new file mode 100755 index 000000000..e70deecb4 --- /dev/null +++ b/testsuite/gna/bug18360/testsuite.sh @@ -0,0 +1,9 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze_failure testcase.vhdl + +clean + +echo "Test successful" |