testsuite/gna: add a test for #2217

1 files changed, 32 insertions, 0 deletions

diff --git a/testsuite/gna/issue2217/test1.vhdl b/testsuite/gna/issue2217/test1.vhdl
new file mode 100644
index 000000000..646cabb66
--- /dev/null
+++ b/testsuite/gna/issue2217/test1.vhdl
@@ -0,0 +1,32 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity test is
+end entity test;
+architecture beh of test is
+  type t_msg_id is (ONE, TWO);
+  type t_msg_id_panel is array (t_msg_id'left to t_msg_id'right) of boolean;
+  type t_quietness is (NON_QUIET, QUIET);
+  procedure enable_log_msg(
+    constant msg_id       : t_msg_id;
+    variable msg_id_panel : inout t_msg_id_panel;
+    constant msg          : string      := "";
+    constant scope        : string      := "";
+    quietness : t_quietness := NON_QUIET
+  )is begin
+  end procedure;
+
+  procedure enable_log_msg(
+    msg_id    : t_msg_id;
+    msg       : string;
+    quietness : t_quietness := NON_QUIET;
+    scope     : string      := ""
+  )is begin
+  end procedure;
+begin
+process(all)
+begin
+  enable_log_msg(ONE, "Test test");
+end process;
+end architecture beh;