MODULE TF32Conv;
VAR ExitCode : INTEGER; x : SHORTREAL;
BEGIN
  x := SHORTREAL(1.5);
  IF x = 1.5 THEN ExitCode := 42 ELSE ExitCode := 1 END
END TF32Conv.