From aee3585afb2d5797d3cca5f13ae4a2c1a64b1267 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 16 Jan 2022 19:12:07 +0100
Subject: testsuite/synth: add more tests for generic packages

---
 testsuite/synth/gen01/pkg04.vhdl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 testsuite/synth/gen01/pkg04.vhdl

(limited to 'testsuite/synth/gen01/pkg04.vhdl')

diff --git a/testsuite/synth/gen01/pkg04.vhdl b/testsuite/synth/gen01/pkg04.vhdl
new file mode 100644
index 000000000..ccca9056e
--- /dev/null
+++ b/testsuite/synth/gen01/pkg04.vhdl
@@ -0,0 +1,27 @@
+package gen is
+  generic (val : integer);
+
+  constant c : integer := val;
+
+  function get_val (x : integer := c) return integer;
+end;
+
+package body gen is
+  function get_val (x : integer := c) return integer is
+  begin
+    return x + val;
+  end get_val;
+end;
+
+package inst1 is new work.gen generic map (val => 5);
+
+entity pkg04 is
+  port (i : in integer;
+        o : out integer);
+end pkg04;
+
+architecture behav of pkg04 is
+  use work.inst1.all;
+begin
+  o <= i + get_val;
+end behav;
-- 
cgit v1.2.3