fpc/tests/tbs/tbs0218.pp

Program Wrong_Output;
{}
Var r,rr:Extended; 
    s:String;
    code : word;
{}
Begin
  Writeln('Size of Extended type (r)=',SizeOf(r),' bytes');
  r:=0.000058184639;
  Writeln('r=',r);
  Writeln('r=',r:16:13);
  Writeln('r=',r:15:12);
  Writeln('r=',r:14:11);
  Writeln('r=',r:13:10);
  Writeln('r=',r:12:9);
  Writeln('r=',r:11:8);
  Writeln('r=',r:10:7);
  Writeln('r=',r:9:6);
  Writeln('r=',r:8:5);
  Writeln('r=',r:7:4);
  Str(r:7:4,s);
  Writeln('r=',s,' (as string)');
  str(r,s);
  val(s,rr,code);
  if r<>rr then 
    begin
      Writeln('r=',r);
      Writeln('is different from rr=',rr);
      halt(1);
    end;
End.