usr/share/fpcsrc/3.2.0/tests/webtbs/tw8838.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw8838.pp

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.