t_assign.mod 63 B

123456
  1. MODULE T;
  2. VAR i : INTEGER;
  3. r : REAL;
  4. BEGIN
  5. i := r
  6. END T.