Test suite results for test file webtbs/tw1021.pp

Test run data :

View Test suite results

Test file "webtbs/tw1021.pp" information:

t_id 748
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=47 Percentage= 94.00

Source:

{ Source provided for Free Pascal Bug Report 1021 }
{ Submitted by "Oliver Puetz" on  2000-07-03 }
{ e-mail: Oliver.Puetz@gmx.de }
{
  Free Pascal Compiler version 0.99.15 [2000/03/30] for i386
  Copyright (c) 1993-2000 by Florian Klaempfl
  Win NT 4.0 Fixpak 2

  With TFloat = EXTENDED Writeln resumes 0.0   0.0   1
  With TFloat = DOUBLE   Writeln resumes 0.0   1.0   1

  Thus only the write-command seems not to transfer the extended a equals 1
  to a string like '1'
}

type  tfloat  = extended;

var   a, b    : tfloat;
      i       : INTEGER;
      f : text;
begin
  case sizeof(tfloat) of
    4:  writeln('single');
    8:  writeln('double');
   10:  writeln('extended');
   else writeln(sizeof(tfloat));
  end;
  a := 0;
  b := 1 - a;
  i := Round(b);
  writeln(a:30:20, b:30:20, i:10);
  assign(f,'tbug1021.tmp');
  rewrite(f);
  writeln(f,a:30:20,' ',b:30:20,' ',i:10);
  close(f);
  reset(f);
  read(f,a);
  read(f,b);
  read(f,i);
  if (a<>0.0) then
    begin
      Writeln('Error reading A value, should be zero');
      Halt(1);
    end;
  if (b<>1.0) then
    begin
      Writeln('Error reading B value, should be one');
      Halt(1);
    end;
  if (i<>1) then
    begin
      Writeln('Error reading I value, should be one');
      Halt(1);
    end;
end.

Link to SVN view of webtbs/tw1021.pp source.