Listing: 1 MODULE TCmp; 2 VAR x : INTEGER; r : REAL; b : BOOLEAN; 3 BEGIN b := x = r ***** ^ incompatible comparison 4 END TCmp. 1 error
