1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/gna/ticket44/file1.vhd b/testsuite/gna/ticket44/file1.vhd
new file mode 100644
index 0000000..06c6dda
--- /dev/null
+++ b/testsuite/gna/ticket44/file1.vhd
@@ -0,0 +1,23 @@
+package pkg is
+  type protected_t is protected
+  end protected protected_t;
+
+  procedure proc(variable prot : inout protected_t; variable result : out boolean);
+end package;
+
+package body pkg is
+  type protected_t is protected body
+  end protected body protected_t;
+
+  procedure proc(variable prot : inout protected_t; variable result : out boolean) is
+  begin
+  end;
+end package body pkg;
+
+use work.pkg.all;
+
+package other_pkg is
+  procedure other_proc(variable result : out boolean);
+  alias other_proc is proc[protected_t, boolean];
+  impure function other_proc return boolean;
+end package;