diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-09 20:27:51 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-09 20:27:51 +0100 |
| commit | 45dba464bc2f69145753e4c9c9b1dde0868ec878 (patch) | |
| tree | 84ec4ab7344a59c26a175e299d57f594373068d4 /testsuite/gna/ticket90 | |
| parent | ae3865c0cbf1f71f7b8576031a37ac855060677b (diff) | |
| download | ghdl-45dba464bc2f69145753e4c9c9b1dde0868ec878.tar.gz ghdl-45dba464bc2f69145753e4c9c9b1dde0868ec878.tar.bz2 ghdl-45dba464bc2f69145753e4c9c9b1dde0868ec878.zip | |
testsuite: check feature before testing it.
Diffstat (limited to 'testsuite/gna/ticket90')
| -rw-r--r-- | testsuite/gna/ticket90/test2.vhdl | 12 | ||||
| -rwxr-xr-x | testsuite/gna/ticket90/testsuite.sh | 1 |
2 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/gna/ticket90/test2.vhdl b/testsuite/gna/ticket90/test2.vhdl new file mode 100644 index 000000000..44b8ec447 --- /dev/null +++ b/testsuite/gna/ticket90/test2.vhdl @@ -0,0 +1,12 @@ +entity test is + generic ( + a, b : integer; + c : natural); +begin + assert (a = b) and ((b /= c) or not (a = c)) + report "a /= b" severity failure; +end entity; + +architecture a of test is +begin +end architecture; diff --git a/testsuite/gna/ticket90/testsuite.sh b/testsuite/gna/ticket90/testsuite.sh index d4f9881e9..20e1ba557 100755 --- a/testsuite/gna/ticket90/testsuite.sh +++ b/testsuite/gna/ticket90/testsuite.sh @@ -9,6 +9,7 @@ clean GHDL_STD_FLAGS=--std=08 analyze test.vhdl +analyze test2.vhdl clean echo "Test successful" |