9 Apr
2001
9 Apr
'01
12:53 a.m.
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»