From b650e63e2495ad97a850af9c7ba8978dbfbd3100 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 23 Apr 2023 19:30:38 +0200
Subject: testsuite/synth: add a test for external names with components

---
 testsuite/synth/external01/external02.vhdl | 65 ++++++++++++++++++++++++++++++
 testsuite/synth/external01/testsuite.sh    |  1 +
 2 files changed, 66 insertions(+)
 create mode 100644 testsuite/synth/external01/external02.vhdl

diff --git a/testsuite/synth/external01/external02.vhdl b/testsuite/synth/external01/external02.vhdl
new file mode 100644
index 000000000..5cab0d980
--- /dev/null
+++ b/testsuite/synth/external01/external02.vhdl
@@ -0,0 +1,65 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity external02_sub is
+  port (clk : std_logic;
+        rst : std_logic;
+        a : std_logic_vector(7 downto 0);
+        o : out std_logic_vector(7 downto 0));
+end external02_sub;
+
+architecture behav of external02_sub is
+  signal accum : std_logic_vector(7 downto 0);
+begin
+  process (clk) is
+  begin
+    if rising_edge(clk) then
+      if rst = '1' then
+        accum <= (others => '0');
+      else
+        accum <= std_logic_vector(unsigned(accum) + unsigned(a));
+      end if;
+    end if;
+  end process;
+
+  process (clk) is
+  begin
+    if rising_edge(clk) then
+      if rst = '1' then
+        o <= (others => '0');
+      else
+        o <= accum;
+      end if;
+    end if;
+  end process;
+end behav;
+
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity external02 is
+  port (clk : std_logic;
+        rst : std_logic;
+        a : std_logic_vector(7 downto 0);
+        accum : out std_logic_vector(7 downto 0);
+        o : out std_logic_vector(7 downto 0));
+end external02;
+
+architecture behav of external02 is
+  component external02_sub is
+    port (
+      clk :     std_logic;
+      rst :     std_logic;
+      a   :     std_logic_vector(7 downto 0);
+      o   : out std_logic_vector(7 downto 0));
+  end component external02_sub;
+begin
+  dut : external02_sub
+    port map (clk => clk,
+              rst => rst,
+              a => a,
+              o => o);
+  accum <= << signal .external02.dut.accum : std_logic_vector(7 downto 0) >>;
+end behav;
diff --git a/testsuite/synth/external01/testsuite.sh b/testsuite/synth/external01/testsuite.sh
index 12ca0c07a..b21120cdc 100755
--- a/testsuite/synth/external01/testsuite.sh
+++ b/testsuite/synth/external01/testsuite.sh
@@ -6,6 +6,7 @@ GHDL_STD_FLAGS=--std=08
 GHDL_SYNTH_FLAGS=--keep-hierarchy=no
 
 synth_only external01
+synth_only external02
 
 synth_failure externalerr01.vhdl -e
 synth_failure externalerr02.vhdl -e
-- 
cgit v1.2.3