testsuite/gna/issue320/fuu.vhdl


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

entity fuu is
end entity;

architecture fum of fuu is
    function fie  return string is
    begin
        return "11010011"; 
    end function;
begin
    process
    begin
        report "expression'right = " & integer'image(fie'RIGHT);
        wait;
    end process;
end architecture;