c_bad_len.mod 110 B

12345
  1. MODULE CBadLen;
  2. VAR a : ARRAY [1 .. 5] OF INTEGER; b : ARRAY [1 .. 6] OF INTEGER;
  3. BEGIN
  4. a := b
  5. END CBadLen.