testsuite/gna/issue388/e.vhdl


1
2
3
4
5
6
7
8

entity e is end entity;
architecture a of e is
  type enu is (one, two);
  function one return enu is begin
    return two;
  end function;
begin
end architecture;