testsuite/gna/issue238/cst.vhdl


1
2
3
4
5
6
7
8
9
10

package cst is
  function four return natural;
end cst;

package body cst is
  function four return natural is
  begin
    return 4;
  end four;
end cst;