@c+
module 12_8 --arrayCompare
-- test of comparison of arrays
private
 typedef integer range [1..2] one_two;
 integer array [one_two] a,b;
begin

a[1] := 3;
b[1] := 3;
a[2] := 5;
b[2] := 6; 
 if a = b -> write 'yep';
 [] a # b -> write 'nope';
 fi;
 a := b; -- or a[2] := b[2];
 if a = b -> write 'yep';
 [] a # b -> write 'nope';
 fi;
end. -- output nope yep
