From 06e02ea0b1e4662b707fdfd07eabc13f1e4ae84d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 29 Jul 2021 20:41:09 +0200
Subject: testsuite/gna: add a case for #1824

---
 testsuite/gna/issue1824/entity_1.vhdl | 19 +++++++++++++++++++
 testsuite/gna/issue1824/testsuite.sh  | 12 ++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 testsuite/gna/issue1824/entity_1.vhdl
 create mode 100755 testsuite/gna/issue1824/testsuite.sh

(limited to 'testsuite')

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"
-- 
cgit v1.2.3