fpcsrc/tests/webtbs/tw8838.pp


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

var
  c,u: char;
  s,t: string[6];
begin
  c := 'x';
  u := UpCase(c);
  s := UpCase(c);
  t := u;
  writeln('c = "',c,'"');
  writeln('u = "',u,'"');
  writeln('s = "',s,'"');
  writeln('t = "',t,'"');
  if (s='') or (t='') then
    halt(1);
end.