1 files changed, 70 insertions, 0 deletions
diff --git a/testsuite/synth/issue2177/vlm5030_pack.vhd b/testsuite/synth/issue2177/vlm5030_pack.vhd
new file mode 100644
index 000000000..a048b67c1
--- /dev/null
+++ b/testsuite/synth/issue2177/vlm5030_pack.vhd
@@ -0,0 +1,70 @@
+----------------------------------------------------------------------
+--                           VLM5030
+--                      www.fpgaarcade.com
+--                     All rights reserved.
+--
+--                     admin@fpgaarcade.com
+--
+-- This Source Code Form is subject to the terms of the Mozilla Public
+-- License, v. 2.0. If a copy of the MPL was not distributed with this
+-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
+----------------------------------------------------------------------
+--
+-- Copyright (c) 2021, Arnim Laeuger  arnim.laeuger@gmx.net
+-- All rights reserved.
+--
+
+
+library ieee;
+use ieee.std_logic_1164.all;
+
+package vlm5030_pack is
+
+  -----------------------------------------------------------------------------
+  -- Verctorized NOR and OR functions
+  -----------------------------------------------------------------------------
+  function  norf(i : std_logic_vector) return std_logic;
+  function  norf(wl, vec : std_logic_vector) return std_logic;
+  function norif(wl, vec : std_logic_vector) return std_logic;
+  function   orf(wl, vec : std_logic_vector) return std_logic;
+
+end;
+
+package body vlm5030_pack is
+
+  function norf(i : std_logic_vector) return std_logic is
+    variable lorf : std_logic;
+  begin
+    lorf := '0';
+    for idx in i'range loop
+      lorf := lorf or i(idx);
+    end loop;
+    return not lorf;
+  end;
+
+  function norf(wl, vec : std_logic_vector) return std_logic is
+    variable lorf : std_logic;
+  begin
+    lorf := '0';
+    for idx in wl'range loop
+      lorf := lorf or (wl(idx) and vec(idx));
+    end loop;
+    return not lorf;
+  end;
+
+  function norif(wl, vec : std_logic_vector) return std_logic is
+    variable lorf : std_logic;
+  begin
+    lorf := '0';
+    for idx in wl'range loop
+      lorf := lorf or (wl(idx) and not vec(idx));
+    end loop;
+    return not lorf;
+  end;
+
+  function orf(wl, vec : std_logic_vector) return std_logic is
+  begin
+    return not norf(wl, vec);
+  end;
+
+end;