t_bad_mixed.mod 91 B

1234567
  1. MODULE TBadMixed;
  2. VAR i : INTEGER;
  3. VAR r : REAL;
  4. BEGIN
  5. r := 1.5;
  6. i := r
  7. END TBadMixed.