1 2 3 4 5 6 7 8
MODULE arraymismatch ; VAR a: ARRAY [0..3] OF REAL ; b: ARRAY [0..4] OF REAL ; BEGIN a := b END arraymismatch.