testsuite/gna: add a test for #1688

1 files changed, 32 insertions, 0 deletions

diff --git a/testsuite/gna/issue1688/test1.vhdl b/testsuite/gna/issue1688/test1.vhdl
new file mode 100644
index 000000000..1f6b49019
--- /dev/null
+++ b/testsuite/gna/issue1688/test1.vhdl
@@ -0,0 +1,32 @@
+package test3 is
+  type t_prot is protected
+  end protected t_prot;
+end package;
+package body test3 is
+  type t_prot is protected body
+  end protected body t_prot;
+end package body;
+
+package test2 is
+  shared variable shared_var : work.test3.t_prot;
+end package;
+
+package test1 is
+  alias shared_var_2 is work.test2.shared_var;
+end package;
+
+use work.test1.all;
+
+entity test is
+end test;
+
+architecture behav of test is
+begin
+  process
+  begin
+    shared_var_2.proc;
+    report "done";
+    wait;
+  end process;
+end behav;
+