[Gm2] Compiler crash getting maximal exponent of LONGREAL

[Michael Riedl]

Hallo Gaius,

the following short sample

MODULE MaxExp;

  (* Get maximal decimal exponent of a LONGREAL *)

IMPORT LongMath;
IMPORT STextIO;
IMPORT SWholeIO;

VAR   nexp : CARDINAL;

BEGIN
      (* Compiler crash *)
      nexp := TRUNC(LongMath.ln(MAX(LONGREAL)) / LongMath.ln(10.0));

      STextIO.WriteLn; STextIO.WriteLn;
      STextIO.WriteString("hugest exponent of LONGREAL is = ");
      SWholeIO.WriteCard(nexp,5);
      STextIO.WriteLn; STextIO.WriteLn;
END MaxExp.

causes gm2 to crash with:

gm2 -c -fiso -flibs=iso -I /opt/gm2/lib/gcc/i586-linux-gnu/4.7.4/m2/iso 
-I /opt/gm2/lib/gcc/i586-linux-gnu/4.7.4/m2/pim -L /opt/gm2/libs MaxExp.mod
cc1gm2: internal compiler error: tree check: expected integer_cst, have 
fix_trunc_expr in tree_int_cst_lt, at tree.c:6485
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
make: *** [MaxExp.o] Error 1

You can use "VAL(CARDINAL, ... );" instead of TRUNC( ... );" with the 
same result.

Gruß

Michael