fpc/bugs/bug0115.pp

var
   c : comp;

begin
   writeln(c);
   readln(c);
end.