diff options
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/gna/issue1824/entity_1.vhdl | 19 | ||||
-rwxr-xr-x | testsuite/gna/issue1824/testsuite.sh | 12 |
2 files changed, 31 insertions, 0 deletions
diff --git a/testsuite/gna/issue1824/entity_1.vhdl b/testsuite/gna/issue1824/entity_1.vhdl new file mode 100644 index 000000000..25596b57d --- /dev/null +++ b/testsuite/gna/issue1824/entity_1.vhdl @@ -0,0 +1,19 @@ +entity entity_1 is +end entity entity_1; + +architecture behav of entity_1 is +begin + genIf: if True generate + constant G0 : boolean := False; + begin + + elsif False generate + constant G1 : boolean := False; + begin + + else generate + constant G2 : boolean := False; + begin + + end generate; +end architecture behav; diff --git a/testsuite/gna/issue1824/testsuite.sh b/testsuite/gna/issue1824/testsuite.sh new file mode 100755 index 000000000..9e0375736 --- /dev/null +++ b/testsuite/gna/issue1824/testsuite.sh @@ -0,0 +1,12 @@ +#! /bin/sh + +. ../../testenv.sh + +export GHDL_STD_FLAGS=--std=08 +analyze -ds entity_1.vhdl 2> entity_1.dump +cnt=$(grep -c if_generate_else entity_1.dump) +test $cnt -eq 2 + +clean + +echo "Test successful" |