MODULE TBadMixed;
VAR i : INTEGER;
VAR r : REAL;
BEGIN
  r := 1.5;
  i := r
END TBadMixed.