freepascal.compiler/bugs/bug0115.pp

var
   c : comp;

begin
   c:=1234;
   writeln(c);
   readln(c);
   writeln(c);
end.