t_bad_cmp.mod 80 B

1234
  1. MODULE TCmp;
  2. VAR x : INTEGER; r : REAL; b : BOOLEAN;
  3. BEGIN b := x = r
  4. END TCmp.