testsuite/gna/issue791/memory_pkg.vhdl


1
2
3
4
5
6
7
8
9
10
11

package generic_pkg is
  generic (
    procedure generic_procedure
  );
end package;
package body generic_pkg is
  procedure internal_procedure is
  begin
    generic_procedure;
  end;
end package body;