Listing: 1 MODULE SBadCmp; 2 VAR a, b : ARRAY [1 .. 3] OF INTEGER; 3 BEGIN 4 IF a = b THEN END ***** ^ incompatible comparison 5 END SBadCmp. 1 error
