aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug034/repro.vhdl
blob: e4401d390c966a544b234cf44cd8fd9411f0363e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
ENTITY ent IS
END ent;

ARCHITECTURE arch OF ent IS
  function to_lower (c : character) return character is
  begin
    if c >= 'A' and c <= 'Z' then
      return character'val (character'pos (c) + 32);
    else
      return c;
    end if;
  end to_lower;

BEGIN
	TESTING: PROCESS
	BEGIN
          assert to_lower('F') = 'f';
	wait;
	END PROCESS TESTING;
END arch;