Re: [Gm2] Another problem with MAX(LONGREAL);

[Gaius Mulley]

Michael Riedl <address@hidden> writes:

> Gaius,
>
> maybe related to the last message - but may be independend from that
>
> Have a look on the following short example
>
> MODULE MaxReal2;
>
> IMPORT STextIO,SLongIO,SWholeIO;
>
> VAR   x : LONGREAL;
>       i : CARDINAL;
>
> BEGIN
>       x:=MAX(LONGREAL);
>
>       STextIO.WriteString("MAX(LONGREAL) = ");
>       SLongIO.WriteEng(x,8,16); (* crashes *)
>       STextIO.WriteLn;
>
>       REPEAT (* does not terminate *)
>         INC(i);
>         x:=0.1*x;
>         IF ((i MOD 100) = 0) THEN
>           STextIO.WriteString("i = ");
>           SWholeIO.WriteCard(i,8);
>           STextIO.WriteLn;
>         END;
>       UNTIL (x < 1000.0);
>
>       STextIO.WriteString("Number of devision by 10 = ");
>       SWholeIO.WriteCard(i,8);
>       STextIO.WriteLn;
>
> END MaxReal2.

Hi Michael,

now fixed in git and also in todays tarball - thanks for the bug report!

regards,
Gaius