testsuite/gna: add a test for #1736

4 files changed, 42 insertions, 0 deletions

diff --git a/testsuite/gna/issue1736/ent.ref b/testsuite/gna/issue1736/ent.ref
new file mode 100644
index 000000000..27d353e64
--- /dev/null
+++ b/testsuite/gna/issue1736/ent.ref
@@ -0,0 +1,2 @@
+mylib fifo.vhdl
+work ent.vhdl
diff --git a/testsuite/gna/issue1736/ent.vhdl b/testsuite/gna/issue1736/ent.vhdl
new file mode 100644
index 000000000..2f1cc3625
--- /dev/null
+++ b/testsuite/gna/issue1736/ent.vhdl
@@ -0,0 +1,14 @@
+library ieee;
+context ieee.ieee_std_context;
+
+library mylib;
+use mylib.fifo;
+
+entity ent is
+  generic ( gen : integer := 0 );
+end ent;
+
+architecture arch of ent is
+begin
+  fifo: entity mylib.fifo generic map ( gen  );
+end architecture;
diff --git a/testsuite/gna/issue1736/fifo.vhdl b/testsuite/gna/issue1736/fifo.vhdl
new file mode 100644
index 000000000..5d4cece7b
--- /dev/null
+++ b/testsuite/gna/issue1736/fifo.vhdl
@@ -0,0 +1,9 @@
+library ieee;
+context ieee.ieee_std_context;
+
+entity fifo is
+  generic ( gen : integer := 8 );
+end fifo;
+
+architecture arch of fifo is begin end;
+
diff --git a/testsuite/gna/issue1736/testsuite.sh b/testsuite/gna/issue1736/testsuite.sh
new file mode 100755
index 000000000..391dab0ff
--- /dev/null
+++ b/testsuite/gna/issue1736/testsuite.sh
@@ -0,0 +1,17 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+analyze --work=mylib fifo.vhdl
+analyze ent.vhdl
+cmd="$GHDL elab-order --libraries $GHDL_STD_FLAGS ent"
+echo "run $cmd"
+eval "$cmd" > ent.out
+diff_nocr ent.ref ent.out
+
+clean
+clean mylib
+rm -f ent.out
+
+echo "Test successful"