testsuite/gna/bug081/elab_func.vhdl


1
2
3
4
5
6
7
8
9
10
11

package elab_func is
  function f return natural;
end elab_func;

package body elab_func is
  constant c : natural := f;
  function f return natural is
  begin
    return 5;
  end f;
end elab_func;