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;
|
