testsuite/gna/ticket44/file2.vhd


1
2
3
4
5
6
7
8
9
10
11
12
13

package body other_pkg is
  procedure other_proc (
    variable result : out boolean) is
  begin
  end;

  impure function other_proc
    return boolean is
    variable result : boolean;
  begin
    return result;
  end function other_proc;
end package body other_pkg;