Re: [Bug report] 12 bytes LongReal

9 Apr 2001


      I wrote :
...
Program LRBug2;
Var
  A : LongReal;
  I : Byte;
Begin
  A := 3.3621031431120935120e-4932; {biggest subnormal number}
  For I := 0 To 64 Do
    Begin
      Writeln(A);
    End;
  Writeln('OK')
End.
Aaaaargh !
Of course, it is :

Program LRBug2;

Var
  A : LongReal;
  I : Byte;

Begin
  A := 3.3621031431120935120e-4932; {biggest subnormal number}
  For I := 0 To 64 Do
    Begin
      Writeln(A);
      A := A/2;
    End;
  Writeln('OK')
End.

--
Â«CouperinÂ»

Re: [Bug report] 12 bytes LongReal

f.couperin