M2compiler-V3/compiler/tests/t_lfloat.mod

MODULE TLFloat;
(* ISO/gm2 LFLOAT: integer -> LONGREAL (V3 reals are 64-bit). *)
VAR x : LONGREAL; n : CARDINAL; ExitCode : INTEGER;
BEGIN
  n := 42;
  x := LFLOAT(n);
  IF x = 42.0 THEN ExitCode := 42 ELSE ExitCode := 1 END
END TLFloat.