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