testsuite/gna/bug048/leftof3.vhdl


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

entity leftofrightof is
end entity;

architecture subclass_variable of leftofrightof is

begin
    process
        variable i: character := 'e';
    begin
        report "i = " & character'image(i);
        report "leftof(i) = " & character'image(character'leftof(i));
        report "rightof(i) = " & character'image(character'rightof(i));
        wait;
    end process;
end architecture;